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Introduction 



Purpose of This Publication 

This publication is a reference manual for persons 
writing programs in the fortban language for use with 
the IBM 1410/7010 Operating System. Requirements 
for writing Autocoder subprograms to be combined 
with a FORTRAN program also are outlined. 

FORTRAN Language and Processor 

The 1410/7010 Fortran Programming System consists 
of a language and its associated processor. The For- 
tran language provides facilities for expressing most 
problems of numeric computation. In particular, prob- 
lems containing large sets of formulas and many vari- 
ables can be dealt with easily, and any variable may 
have up to three independent subscripts. 

The capability of Fortran may be expanded by 
the use of subprograms. These subprograms may be 
written in Fortran language or in Autocoder, and may 
be called by other Fortran main programs or sub- 
programs. 

The language consists of five general categories of 
statements: 

Arithmetic Statements define calculations to be per- 
formed. 

Control Statements determine the processing flow. 

Iriput and Output Statements specify the transfer of 
information between the computer and input/output 
devices. 

Subprogram Statements allow the user to write sub- 
programs. 

Specification Statements declare properties of names 
appearing in the program and enable the user to con- 
trol the allocation of core storage. 

Any of these statements may be assigned a statement 
number. To permit reference within one statement to 
another statement, the latter statement must be as- 
signed a statement number. 

The 1410/7010 Fortran processor operates as part 
of the 1410/7010 Operating System. The object pro- 
grams it produces are run according to the conventions 
of the Operating System. 

Processor input is a source program written in the 
FORTRAN language. The processor lists the source pro- 
gram and produces an object program on cards, in 
card-image form on magnetic tape, and/or on disk 
storage. The object program is in the relocatable for- 
mat of the 1410/7010 Operating System. 



INCLUSION OF LIBRARY SUBROUTINES 

Subroutines used to evaluate functions can be placed 
into the System Library where they are available for 
incorporation into object programs. 

PROVISION FOR INPUT AND OUTPUT 

Certain statements in the Fortran language introduce 
input and output routines into the object program. 
These routines permit considerable freedom of format 
in input and output data. The routines form a part of 
the System Library. 

Prerequisite Publications 

It is assumed that the user is familiar with the informa- 
tion contained in IBM 1410/7010 Operating System; 
Basic Concepts, Form C28-0318, and General Informa- 
tion Manual; FORTRAN, Form F28-8074. 

Additional knowledge is necessary if it is desired 
to write subprograms in Autocoder as explained in 
Part 2 of this manual. This information appears in the 
following publications : 

IBM 1410/7010 Operating System; Autocoder, Form 
C28-0326, 

IBM 1410 Principles of Operation, Form A22-0526, 

IBM 7010 Principles of Operation, Form A22-6726. 

Definitions in Relation to the Operating System 

The FORTRAN language defines main program and three 
classes of subprograms as explained in Part 1 of this 
publication. The Fortran term main program is syn- 
onymous with the Operating System term primary 
subprogram, and the Fortran term subprogram is syn- 
onymous with the Operating System term secondary 
subprogram. Main programs and subprograms may be 
separately compiled and both may call other subpro- 
grams. During execution of the object deck, all pro- 
gramming that constitutes the main program and any 
required subprograms resides in core storage at the 
same time. 

The word program is used in this publication in a 
general sense where the distinction between a main 
program and a subprogram is not significant. 

Minimum Machine Requirements 

The minimum machine configuration required by the 
FORTRAN processor is discussed in the publication IBM 
1410/7010 Operating System: System Generation, Form 
C28-0352. 
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Use and Contents of This Publication 

This publication is divided into three parts, three 
appendixes, and an index: 

Part 1 describes, with examples of use, the state- 
ments of the FORTRAN language. 

Part 2 describes the operand parameters of the 
Monitor control card that institutes execution of a 
FORTRAN compilation, the format of the source pro- 
gram listing, calculation of the subscript expressions 



in a FORTRAN program, and basic requirements for 
writing Autocoder subprograms to be combined with 
a FORTRAN program. 

Part 3 is a listing of the diagnostic and error mes- 
sages. 

Appendix A describes the order in which source 
program statements of a Fortran program are exe- 
cuted. Appendix B discusses preparing, checking, and 
punching a source program. Appendix C is a tabula- 
tion of the FORTRAN character set. 



PART 1 - THE FORTRAN LANGUAGE 



Constants, Variables, Subscripts, and Expressions 



This section describes constants, variables, and sub- 
scripts for one-, two-, and three-dimensional arrays of 
variables. Also described are expressions which are 
combinations of constants, variables, and function ref- 
erences. (Functions and function references are dis- 
cussed under "Subprograms: Function and Subroutine 
Statements.") 

The 1410/7010 Fortran processor permits the user 
to define the precision of arithmetic calculations by 
specifying word size up to 20 digits for integers and 
18 digits plus two exponent digits for real numbers. 
Specification is made on the Monitor control card that 
causes execution of the Fortran compiler. Details 
appear in Part 2 under "Monitor Card to Execute 

FORTRAN," 

The word size specifications apply to both constants 
and variables of a given type (integers or real num- 
bers). Word sizes for each type of number must be 
the same for all subprograms combined into a single 
program. 



Constants 

Two types of constants are permitted in a Fortran 
source program: integer constants and real constants. 
( In older material on Fortran these are referred to as 
fixed-point constants and floating-point constants, re- 
spectively. ) 



Integer Constants 



General Form 



An integer constant consists of n decimal digits, where 
1 ^ n ^S k, written without a decimal point. A preceding 
-F or — sign is optional. 



EXAMPLES 
3 
+ 1 

-234567890 

MAGNITUDE OF INTICGER CONSTANTS — THE VALUE OF k 

The magnitude of an integer constant must be between 
1 and ( 10'' — 1 ) or be zero. 



The k specification essentially defines core-storage 
word size for integer constants, since each integer 
constant in core storage will occupy k core-storage 
positions, which will be handled as a single unit (or 
word ) . For example, the constant + 314 is stored ( as- 
suming k = 5) as 00314. The constant —314 is stored 

V - 

as 00314. If the user attempts to use an integer con- 
stant of more digits than defined by k, the high-order 
digits are lost. 

The value of k is indicated to the processor through 
control information supplied by the user. If k is speci- 
fied by the user, the value of k must be 3^k^20. If 
k is not specified by the user, the processor will use k 
equal to five decimal digits. 

The constant zero is always stored with a positive 
sign. 



Real Constants 



General Form 



A real constant consists of n decimal digits, where 1 ^ n 
^ f, written with a decimal point. A preceding -I- or — 
sign is optional. 

A real constant may be followed by a decimal exponent, 
which is written as the letter E followed by a (signed or 
unsigned) one- or two-digit integer constant. 



EXAMPLES 



5.0 






-.0003 






5.E3 


i.e. 


5.0x103 


5.0E-1-3 


i.e. 


5.0x10+3 


5.0E-3 


i.e. 


5.0x10-3 


-5.0E-I-3 


i.e. 


-5.0x10+3 


-5.0E-3 


i.e. 


-5.0x10-3 


5.0E-t-03 


i.e. 


5.0x10+3 



MAGNITUDE OF REAL CONSTANTS — THE VALUE OF f 

The magnitude of a real constant must lie between 
10-100 and (1-10-f) x 10»» or be zero. 

The f specification for real number precision essen- 
tially defines core-storage word size for real constants. 
Within core storage a real constant is stored in an 
exponential form occupying f + 2 digits (f-l-2 core- 
storage positions). The first f digits contain the frac- 
tion (a decimal point is understood to precede the 
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high-order digit position). The last two positions hold 
the exponent. Thus if f is 8, a real constant occupies 
ten core-storage positions — eight for the fraction and 
two for the exponent. For example, the constant 
+3.14159 is stored (assuming f = 8^ as 5l4159005i. 
The constant -3.14159 is stored as 3141590651. 

The value of f is specified by means of control infor- 
mation supplied by the user to the processor. If f is 
specified by the user, its value must be 3^f^l8. If f 
is not specified by the user, the processor will use f 
equal to eight decimal digits. If the user attempts to 
use a real constant with more digits than defined by 
f the low-order digits are truncated. 



Explicit type specification overrides implicit type 
specification. For example, if a variable name is int 
and a type specification states that this variable is 
to be real, the variable is handled as a real variable 
even though it implicitly has the form of an integer 
variable. 



Subscripts 

A variable may be made to represent any element of 
a one-, two-, or three-dimensional array by appending 
one, two, or three subscripts, respectively to the vari- 
able name. 



Form of Subscripts 



Variables 

A variable quantity is represented by a symbolic name. 
A variable is specified by its name and type. The type of 
variable (real or integer) corresponds to the type of 
constant (real or integer) that the values of the vari- 
able will assume. 



Names of Variables 



General Form 



The name of a variable consists of one to six alphameric 
characters, the first of which must be alphabetic. Within 
the same program, the same name must not be assigned 
to a variable end to a subprogram. 



EXAMPLES 

A 

JOBS 
COST 
B546T 



Types of Variables 

The type of a variable, integer or real, can be speci- 
fied in two ways : explicitly or implicitly. 

EXPLICIT TYPE SPECIFICATION 

Explicit type specification is made by the Type state- 
ments INTEGER and REAL. (See "The Specification 
Statements.") 

IMPLICIT TYPE SPECIFICATION 

Implicit type specification of a variable is made as 
follows: 

If the first character of the variable name is I, J, K, 
L, M, or N, the variable is an integer variable. 

If the first character of the name is not 1, J, K, L, 
M, or N, the variable is a real variable. 



General Form 



Subscripts may take only the following forms: 

V 



c 
v-l-c 

V— c 
c*v 

c*v + c' 
c*v— c' 



V represents an unsigned, nonsubscripted integer 

variable, 
c and c' represent unsigned integer constants. 
(+ denotes addition; — , subtraction; *, multi- 
plication. ) 



EXAMPLES OF SUBSCRIPTS 

I 

3 

MU-h2 
MU-2 
5*J 

5*J+2 
5*J-2 
A variable in a subscript can not itself be sub- 
scripted. 

Subscripted Variables 



General Form 



A subscripted variable consists of a variable name followed 
by a pair of parentheses enclosing one, two, or three sub- 
scripts separated by commas. 



EXAMPLES 

A(I) 

K(3) 

ALPHA (I, J -I- 2) 

BETA(5*J-2, K-2, L-l-3) 

A reference to an array in a program must be pre- 
ceded by a DIMENSION statement or a common state- 
ment that specifies the size of the array. See the section 
"The Specification Statements" for the description of 
those statements. 

Arrangement of Arrays in Core Storage 

Arrays are placed in core storage in column order, 
in order of decreasing storage addresses: 



One-Dimensional Arrays are stored sequentially. 

Ttvo-Dimensional Arrays are stored sequentially 
by column. 

Three-Dimensional Arrays are stored sequentially by 
column from plane to plane. (That is, the first sub- 
script is cycled most rapidly and the last least rapidly. ) 

For example, the array whose last element is a(m,n) 
will appear in core storage as: 
A(M,N)..A(M,2)..A(2,2),A(1,2),A(M,1)..A(2,1),A(U) 

where a (1,1) which was stored first, is in the high 
core-storage position, and a(m,n) is in the low posi- 
tion. 



Expressions 

Arithmetic Expressions 

An arithmetic expression is a sequence of constants, 
subscripted or nonsubscripted variables, and function 
names (see "Subprograms:- Function and Subroutine 
Statements"), separated by arithmetic operators, com- 
mas, and parentheses. 

ARITHMETIC OPERATORS 



EXAMPLES 



+ 


addition 


_ 


subtraction 


* 


multiplication 


/ 


division 


** 


exponentiation 



RULES FOR CONSTRUCTION OF ARITHMETIC EXPRESSIONS 

Figures 1 and 2 indicate which constants and vari- 
ables may be combined by the arithmetic operators 
to form arithmetic expressions. Figure 1 gives the valid 
combinations for the arithmetic operators: -H — * 
and /. Figure 2 gives the valid combinations for the 
arithmetic operator **. 



+ -*/ 


Real 


Integer 


Real 


Valid 


Invalid 


Integer 


Invalid 


Valid 


Figure 1. Arithmetic Operators 


** 


Exponent 


Real 


Integer 




Real 1 Valid 


Valid 


Integer | Invalid 


Valid 



A+B 

I*J 

A*I 

J*B 
A+2 
A + 2. 
A + 2.0 
A**2.0 
A**I 
I**A 
1**2 



Figure 2. Exponentiation 



(Valid) 

(Valid) 

( Invalid ) 

( Invalid ) 

( Invalid ) 

(Valid) 

(Valid) 

(Valid) 

(Valid) 

( Invalid ) 

(Valid) 

Assume that A and B are of type real and I and J are of type 
integer. 

Expressions may be connected by arithmetic oper- 
ators to form compound expressions provided that no 
two operators appear in sequence and no operation 
symbol is assumed. For example, the algebraic ex- 
pression 

( A X B ) ( - Ci> ) must be written 
(A*B)*(-C**D), no* 
(A*B)*-C**D or (AB)*( -C**D) 

Parentheses may be used, as in algebra, to group 
expressions, to indicate hierarchy of operations, and 
to make interpretation easier for the user. 

The mode of an arithmetic expression is either real 
or integer and, with the following exceptions, cannot 
be mixed: 

A Real Quantity can appear in an integer expres- 
sion as the argument of a function (see "Subprograms: 
Function and Subroutine Statements"). 

An Integer Quantity can appear in a real expression 
as the argument of a function, as a subscript, or as an 
exponent. 

The expression A**B**G is not allowed. It must be 
written as (A**B)**C or A**(B**C), whichever is 
meant. 



HIERARCHY OF OPERATIONS 

Parentheses may be used, as in ordinary algebra, with 
any expression to specify the order in which operations 
are to be executed. When parentheses are omitted, the 
order of computation is the following: 

1. Function computation and substitution (see "Sub- 
programs: Function and Subroutine State- 
ments" ) 

2. Exponentiation 

3. Multiplication and division 

4. Addition and subtraction 

When several operations within the same hierarchy 
appear in an expression, such as a sequence of con- 
secutive multiplications and divisions ( or additions and 
subtractions), the order of processing is from left to 
right, as illustrated in the following examples: 

A-fB-f-Cishandledas (A+B)-HC 

PJ*K is handled as (PJ)*K 

A-f-B-C is handled as ( A + B) -C 
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I*J/K is handled as (I*J)/K 
I*J*K/L is handled as ((I*J)*K)/L 
A/B + C*D/E*F**G is handled as (A/B) + 
(((C*D)/E)*(F**G)) 

EXPONENTIAL EXPRESSION SIGN RESTRICTIONS 

The following restrictions on the signs of the base 
and exponent must be observed. If overflow occurs 
during object program execution, it is indicated as 
shown in the third column. 



FORM OF 




RESULT IF 


EXPONEN- 




ANSWER 


TIAL 


RESTRICTION ON SIGN OF 


CREATES 


EXPRESSION 


BASE OR EXPONENT 


OVERFLOW 


A**B 


Negative base ( A ) not permitted; 


Unusual end 




error message produced by the 


of program 




ALOG function and unusual 


and error 




end of program occurs. When 


message. 




base (A) is zero, result is zero 






for any value of B. 






A**B is computed from 






EXP (B*ALOG (A)). 






The ALOG function does not 






accept negative values of the 






argument. In applications where 






negative A is expected and B 






is identiciilly integral (e.g., 2.0 






or -6.0), use A**IFIX(B) in- 






stead of A**B. Refer to "Built- 






in Function" for an explanation 






of EXP, ALOG, and IFIX func- 






tions. 




A**I 


When base (A) is zero, result 


Overflow in- 




is zero for any value of I. 


dicator 
turns on 
and expo- 
nent is 99. 


I** J 


Negative exponent (J) always re- 


High-order 




sults in an integer 1 and an 


digits of the 




error message. When base (I) 


integer re- 




is zero, result is zero for any 


sult are 




value of J. 


truncated. 



USE OF EXPONENTIAL AND EXPANDED FORMS 

If use of the exponential forms A**I or I** J and the 
expanded forms A*A*. . . or 1*1*. . . is optional, an 
improvement in program efficiency can be obtained 
by selection of the form shown here. 

INTEGER 
EXPONENT MOST EFFICIENT FORM 

0-5 Expanded form; e.g., A*A and A*A*A 

6 or greater Exponential form; e.g., A**I 



Relational Expressions 

A relational expression consists of two arithmetic ex- 
pressions, of the same mode, separated by a relational 
operator. 

RELATIONAL OPERATORS 

.GT. Greater than ( > ) 

.GE. Greater than or equal to ( ^ ) 

.LT. Less than ( < ) 

.LE. Less than or equal to ( ^ ) 

.EQ. Equal to ( = ) 

.NE. Not equal to {^) 

Note: The preceding and following periods are a 
necessary part of the symbol. 

RULES for constructing RELATIONAL EXPRESSIONS 

Figure 3 indicates the valid combinations for the rela- 
tional expression a </> b, where a and b are arithmetic 
expressions, and </> is any relational operator. 







b 


^ 


Real 


Integer 


a 


Real 


Valid 


Invalid 


Integer 


Invalid 


Valid 



Figure 3. Relational Operators 



A.GT.B 


(Valid) 


10..LE.A 


(Valid) 


I.EQ.J 


(Valid) 


A**2..NE..01 


(Valid) 


A.GE.I 


( Invalid ) 


Assume that A and B 


are of type real and I and J are of type 


integer. 





Note: The arithmetic expressions can contain func- 
tion references (see "Subprograms: Function and Sub- 
routine Statements"). 

HIERARCHY OF OPERATIONS 

A relational expression is computed in the following 
way: the value of each arithmetic expression is com- 
puted following the rules of hierarchy for arithmetic 
expressions; these values are then compared for the 
relation indicated by the relational operator. 

use of relational expressions 

Relational expressions are used only in the Relational 

if statement (see "The Control Statements"). 
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The Arithmetic Statement 



The arithmetic statement defines a numeric calcula- 
tion. A FORTRAN arithmetic statement closely resembles 
a conventional arithmetic or algebraic formula, with 
the primary difference that the equal sign ( = ) speci- 
fies replacement, rather than equality. 



General Form 



a=b 



a is a real or integer variable that may or may not be 

subscripted, 
b is an arithmetic expression. 



A real or integer arithmetic expression can be 
equated to any type of variable. 

If the type of variable is real and the mode of the 
expression is integer, the expression is evaluated and 
this value is converted to a real value. The reverse is 
also valid. These and additional examples of arithmetic 
statements are: 



EXAMPLES 



A = B + (C - 1.0)**D 

I=J-K/(L + 1) 

A(IJ,K) = D(N) -f- DAV**MAR 



I = B 

A = I 
A = B 
1 = 1 + 1 



A = 3.0*B 



Truncate B to an integer and convert it to an 

integer value; store it in I. 

Convert I to a real value and store it in A. 

Store the value of B in A. 

Add 1 to I and store in I. This example illustrates 

that an arithmetic statement is not an equation. 

Rather, it is a command to replace a value. 

Multiply 3 by B and store result in A. 
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The Control Statements 



Control statements enable the user to control the flow 
of his program. 

Unconditional GO TO Statement 



General Form 



GOTOn 

n is a statement number. 



This statement causes control to be transferred to the 
statement numbered n. ( See Appendix B for a discus- 
sion of statement numbers.) 



EXAMPLE 

GO TO 57 



Computed GO TO Statement 



General Form 



GO TO (ni, n2 nm),i 

ni, n2, . . . ,nm are statement numbers, 
i is a nonsubscripted integer variable. 
The limits of the value of i are: 1 < i < m. 



This statement causes control to be transferred to 
statement number ni,n2, . . . , or Um, depending on 
whether the value of i at the time of execution of the 
statement is 1, 2, . . . , or m, respectively. 

EXAMPLE 

GOTO(30, 40,50, 9),K 
Thus, if the value of K is 3 at the time of execution 
of this statement, the program will transfer to the state- 
ment identified by the third statement number in the 
list, statement 50. 

Relational IF Statement 



General Form 



IF ( relational expression ) statement 

The statement may be any executable Fortran statement 
except another Relational if statement or a do state- 
ment. 



The Relational if statement will cause the statement 
following the parenthesis to be executed if the rela- 
tional expression is true. If the relational expression is 
not true, control will transfer to the next sequential 
statement in the program. 

If the relational expression is true and the statement 
is an arithmetic statement (e. g., a = b*c), the arith- 
metic operations are performed and control is then 
transferred to the next sequential statement. 

If the relational expression is true, and the statement 
is a CALL (see "Subprograms: Function and Subroutine 



Statements"), control will be transferred to the next 
sequential statement upon return from the subprogram 
called. 



EXAMPLES 



IF (L.GE.16) ANSWER=A/B-C 
IF(A.GE.O.O) GO TO 876 



Arithmetic IF Statement 



General Form 



IF ( arithmetic expression ) ni, na, Ua 
ni, n-2, ns are statement numbers. 



Control is transferred to statement number ni, n2, 
or Ua depending on whether the value of the expres- 
sion is less than, equal to, or greater than zero, 
respectively. 



EXAMPLES 



IF (A) 2,3,2 

IF (A-B) 10,5,7 

IF (IOTA-KAPPA) 1,2,3 



DO Statement 



General Form 



DO n i = mi,m2,ms 

n is a statement number ( see Appendix B ) . 

i is a nonsubscripted integer variable. 

mi,m2,ma are each either unsigned integer constants or 

nonsubscripted integer variables, 
ma is optional; if it is not stated, its value is as'sumed to 

be 1. If it is omitted, the preceding comma must also 

be omitted. 



EXAMPLES 

DO 30 1=1, M, 2 
DO 24 1=2, 10 

The DO statement is a command to execute repeat- 
edly the statements that follow, up to and including 
the statement numbered n. The first time the state- 
ments are executed, i has the value mi and each suc- 
ceeding time i is increased by the value of ma. After 
the statements have been executed with i equal to the 
highest value that does not exceed m2, control passes 
to the statement following statement number n. This is 
called a normal exit from the do statement. 

The Range of the DO Statement: The range of the 
DO statement is the set of statements that will be exe- 
cuted repeatedly. 
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The Index of the DO Statement: The index of the do 
statement is the variable i. Its value is available during 
execution of the do. After a normal exit from a do, the 
value of the index is not available for use. 

DO's Within DO's: A do can be contained within 
another do: this is called a nest of do's. If the range of 
a do contains another do, then all statements in the 
range of the enclosed do must be within the range of 
the enclosing do. The maximum depth of nesting, in- 
cluding implied do's in i/o lists, is 25. That is, a do can 
contain a second do; the second can contain a third; 
the third, a fourth; and so on up to 25 do statements. 

Transfer of Control: Control may not be transferred 
into the range of a do from outside its range. However, 
control can be transferred out of a do range. In this 
case, the value of the index remains available for use. If 
exit is caused by transfer out of the ranges of a set of 
nested do's, then the index of each do is available. 

Figure 4 illustrates the possible transfers in and out 
of the range of a do. In this figure, 1, 2 and 3 are per- 
mitted, but 4, 5, and 6 are not permitted. 



DO 



DO 




iy y4 




Figure 4. Transfer of Control, do Statements 



Restrictions: Any statement that redefines the value 
of the index or any of the indexing parameters ( m's ) 
is not permitted in the range of a do. When the range 
of a do contains reference to a subprogram, care must 
be taken that the subprogram does not alter the index 
or any of the indexing parameters. The range of the 
DO cannot end with a go to statement (see the "con- 
tinue Statement," below ) . 



CONTINUE Statement 



General Form 



CONTINUE 



CONTINUE is a dummy statement that does not pro- 
duce any executable instructions. It is used as the last 
statement of a do to provide a branch address for 
GO TO statements that are intended to begin another 
repetition of the do range. An example is: 



DO 10 I = 1, 20 



IIX = Y -I- Z 



IF(A.GE.B) GO TO 10 
A = A + 1.0 
B = B - 2.0 
GO TO 11 
10 CONTINUE 



PAUSE Statement 



General Form 



PAUSE 
PAUSE n 

n is an unsigned integer constant whose value is less 
than 105. 



This statement causes the program to print on the 
console printer "pause 00000" or, if n is specified, 
"pause n" ( where n includes leading zeros ) . The pro- 
gram will then enter a waiting loop. Operator inter- 
vention will cause the program to resume execution, 
starting at the next statement after the pause statement. 

STOP Statement 



General Form 



STOP 



This statement terminates the execution of the pro- 
gram and returns control to the Monitor. 

END Statement 



General Form 



END 



The end statement defines the end of a program or sub- 
program for the processor. Physically, it must be the 
last statement of each program or subprogram. The 
end statement is not executable; it must not be en- 
countered in the flow of the program. 

RETURN Statement 



General Form 



RETURN 



This is the normal exit from a subprogram. The re- 
turn statement signifies a logical conclusion of the 
computation and returns any value computed and con- 
trol to the calling program. 
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Input/Output Statements 



The Input/Output (i/o) statements control the trans- 
mission of information between the computer and 
input/output devices (such as card readers, card 
punches, and magnetic tape units ) . The i/o statements 
fall into the following general categories: 

FORMAT Statements: These are nonexecutable 
statements that specify (a) the arrangement of the 
information to be transferred, and (b) the editing 
transformation between internal (core-storage) and 
external forms of the information. The format state- 
ments are used in conjunction with the general i/o 
statements. 

General I/O Statements: These statements cause 
transmission of information between the computer and 
input/output devices. They are read and write. 

Manipulative I/O Statements: These statements 
manipulate input/ouput units. They are end file, 

REWIND, and BACKSPACE. 

Specification Lists 

The general i/o statements call for the transmission of 
information and must, therefore, include a list of the 
items to be transmitted. A list item may be a sub- 
scripted or nonsubscripted variable; successive items 
of the list must be separated by commas. An i/o list 
is read from left to right. A constant may appear in 
the list only as a subscript or as an indexing parameter. 

A list is ordered, and its order must be the same 
as the order in which the information appears in the 
input medium or in which it is desired that the informa- 
tion appear in the output medium. 

A list may contain implied do's. In this case a comma 
must precede the index variable, and all items to be 
included in the range of the implied do must be set 
off by parentheses, do's can be effectively nested by 
the placing of matching parentheses around the first 
and last items of each successive inner do range. 

The index values for the implied do may appear in 
the list. For example, the list specification 

K, L, M, (E(I,J),I = K, L, M) 
will transfer the values of the integer variables K, L, 
and M, and will also insert those values into the im- 
plied do. For example, if K = 1, L = 99, and M = 5, the 
implied do is effectively 
E(I,J),I=1, 99, 5 

EXAMPLE 

For the following example, assume that the value of 
K is defined in the program before the appearance of 



the general i/o statement of which the list is a part. 

Consider this list: 

A, B(3), (C(I), D(I, K), 1 = 1, 10, 2), 
((E(I,J),I = 1,10,2),F(J,3),J = 1,K) 

If this list is used with an output statement, the 

information will be written on the output medium in 

this order: 

A, B(3), C(l), D(l, K), C(3), D(3, K), 

. . . , C(9), D(9, K), 

E(1,1),E(3,1),. . . , E(9, 1), F(l, 3), 

E(1,2),E(3,2),. . . , E(9, 2), F(2, 3), 



E(1,K),E(3,K), . . . , E(9, K), F(K, 3) 
Similarly, if this list were used with an input state- 
ment, the variable names A, B(3), C(l), etc., will 
be assigned to the values given on the external medium. 

IMPLIED DO 

The order of the list generated by the implied do's of 
the preceding example is approximately equivalent 
to the following sequence of statements. The order is 
approximately equivalent since each read statement 
below implies that input is to come from the beginning 
of a new input record. This may not be the case for 
the actual list. 

READ(M, ni)A 

READ (M, na) B(3) 

DO 5 1 = 1, 10 

READ (M, na) C(I) 
5 READ (M, nO D(I, K) 

D09J = 1,K 

DO 8 1 = 1, 10,2 
8 READ (M, n5) E(I,J) 
9READ (M, no) F(J, 3) 

nn are the statement numbers of FORMAT statements, as 
explained further on in this section. 

M is the symbohc unit designated for input. 

Reading or Writing Entire Arrays 

When the reading or writing of an entire array is re- 
quired, an abbreviated notation may be used in the 
list of the input or output statement. Only the name 
of the array need be given, and subscripts may be 
omitted. For example, if A has previously been listed 
with a DIMENSION or a common (With Dimensions) 
statement (see "The Specifications Statements"), the 
statement 

READ (1, 18) A or READ (4) A 
will cause all of the elements of the A array to be read 
in the implied order of elements. Thus, if A is a 2X3 
array, the elements should be placed on the input 
medium in this order: 

A(1,1),A(2,1),A(1,2),A(2,2),A(1,3),A(2,3). 
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FORMAT Statement 



General Form 



FORMAT (Si, S2, . ..,S„) 

Si, S2, . . . , Sn are format specifications. 



EXAMPLE 

FORMAT (12, E12.4, F10.2) 
The general formatted input/output statements — 
READ ( i, n ) List, and write ( i, n ) List — in addition to 
a list of items to be transmitted, refer to a format 
statement that describes the data record and the type 
of conversion to be performed between the internal 
and the external representations for each element in the 
list. The format statement describes the record to be 
read or written by giving the specification for each field 
— numeric, alphameric, or blanks — in the record from 
left to right, beginning with the first character of the 
record. 

format statements must appear in the source deck 
after any equivalence statements and before any 
Statement Functions or executable- statements, format 
statements must have a statement number. See Ap- 
pendix B for a discussion of statement numbers. 

A total of 9,999 characters is permitted in the 
format statements of each program compiled. Blanks 
are not counted except when specified in the H conver- 
sion described later. 

Format Specifications 

Numeric Fields 

Three types of specifications are available for informa- 
tion in numeric form: 



INTERNAL 
REPRESENTATION 



Real (e.g., i230000656 



forf=8) 



Real 



(e.g. 
forf=8) 



1230000^56 



Integer (e.g., 50125 
fork = 5) 



CONVER- 
SION 
CODE 



EXTERNAL 
REPRESENTATION 



Real with exponent 
(e.g., .123E-06) 



Real without exponent 
(e.g., .000000123) 



Integer 
(e.g., 123) 



These types of conversion are specified in the fol- 
lowing forms: 

Ew.d 

Fw.d 

Iw 

E, F, and I specify the type of conversion. 

w is an unsigned integer constant specifying the 
field width of the data; w must not be zero. 
( This specification may be greater than that re- 
quired for the actual digits, to provide spacing 
between successive numbers.) 



d is an unsigned integer constant specifying the 
number of positions of the field that are to ap- 
pear as a fractional part. 

Specifications for successive fields within a record are 
separated by commas. Specification of more characters 
than are permitted for the appropriate input/output 
record cannot be given. For example, the format speci- 
fication for output on a printer should not provide for 
more characters than can be handled by the printer. 

Information to be transferred under E and F con- 
version must be of type real; information to be trans- 
ferred under I conversion must be of type integer. 

In E and F type format statements, w may consist of 
up to three numerical characters ( maximum value, 133; 
see message 097) and d of up to two numerical char- 
acters. 

However, ibcommon does not handle more than two 
numerical characters for both w and d; for this reason 
fields w and d should never exceed two numerical 
characters. 

OUTPUT fields 

The field-width count (w) for output E and F conver- 
sion must include a space for the decimal point; a 
space for the sign must be included only if negative 
numbers are to be converted. (An example of the 
input and output form of negative numbers subject to 
E or F conversion is — .123Eb06, — 12.3, etc., where b 
indicates a blank. ) Also, for E conversion, a count must 
be made for the letter E, the sign of the exponent, and 
the two-digit exponent. Therefore, for E output con- 
version, minimum w = d + 6. 

Two examples of E output conversion follow: 



INTERNAL 

REPRESENTATION 

12300(656 

12300656 



FORMAT OUTPUT 

SPECIFICATION REPRESENTATION 

E9.3 b. 123E-06 

E9.3 -.123Eb06 

Nonsignificant zeros do not appear in the output for 
E, F, or I conversion, except for the exponent of E out- 
put conversion. If the exponent is less than ten, a zero 
precedes the significant exponent digit. 

If a number converted by E or F output conversion 
requires more space than is allotted by the format 
specification, an asterisk (*) is inserted in the high- 
order position of the field, any other digits preceding 
the decimal point are replaced by blanks, the decimal 
point is inserted in the correct position, and digits 
following the decimal point are replaced by zeros. 
For E conversion the internal exponent digits are in- 
serted in the external exponent field. The external 
exponent digits, therefore, are correct unless overflow 
occurred within the machine. 

If a number converted by output I conversion re- 
quires more space than allotted by field width in the 
format specification, the excess high-order digits will 
be lost, an asterisk ( *) will be inserted in the leftmost 
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position of the field, and an error message will be sup- 
plied during execution. 

If the number requires fewer spaces than allotted, 
the high-order excess positions are filled with blanks. 
Thus, a format specification that has a greater field 
width than is required may be used to space an output 
record. 

INPUT FIELDS 

The field-width count (w) for input E and F conver- 
sion must include a space for a decimal point if one is 
used explicitly in the input data (see "Data Input to 
an Object Program"). A space for the sign must be 
included only if negative numbers are to be converted. 

For E input conversion a variety of forms, including 
the standard output form, is acceptable. A count must 
be made for each character of the input data that may 
be present. This includes the E, the sign of the expo- 
nent, and the exponent digits. 

The following example shows the forms of input 
data acceptable for E conversion. 



VALUE TO BE 


PERMISSIBLE INPUT FORM 


REPBESENTED 


UNDER FORMAT (E10.3) 




/ -I-0.123E-06 




/ +.123E-06 




\ .123E-06 


.123 X 10-6 


] .123E-6 
\ .123-06 




j .123-6 




\ Decimal point in any of above 
^ forms may be omitted. 




/ -0.123E+06 




/ -.123E+06 




I -.123E + 6 




\ -.123Eb06 


- .123 X 10« 


; -.123E6 
\ -.123Eb6 




j -.123-1-06 




/ -.123 + 6 




\ Decimal point in any of above 
\ forms may be omitted. 



Equivalent forms of the same number, such as 
1.23 — 7 or 12.3E — 8 for the first number in the example, 
also are acceptable. 

If the FORMAT specification does not describe the 
input data correctly, the desired transfer cannot occur. 
For example, if — 1234.5 is to be read into core storage 
under F5.2, the number is treated as though it were 
-12.34. 

Alphameric Fields 

FORTRAN provides two methods by which alphameric 
information may be transferred: 

The specification Aw causes w characters to be read 
into or written from a core-storage location designated 
by a variable or array name. 

The specification nH specifies that alphameric in- 
formation is contained in the format statement. 



The basic diflference between A and H conversion 
is that alphameric information handled by A conver- 
sion is given a name, and thus can be referred to by 
this name for processing and modification. The asso- 
ciated i/o statement therefore requires a list when A 
conversion is specified by the format statement. 

Information handled by H conversion is not labeled; 
it is a constant field and cannot be referred to or 
manipulated. 

For input, the specification nAw causes n successive 
fields of w characters each to be read in the form in 
which they appear in the input medium. The n names 
specified by the list are assigned to the n fields that are 
read into core storage. 

A CONVERSION 

For example: 

8 FORMAT (12A6) 

READ (1, 8) X, Y, (ACONV (I), 1=1, 10) 

These statements cause the Standard Input Unit to 
read a card containing 12 six-character fields into core 
storage in the form that the fields appear on the card. 
The first word is assigned the name X; the second Y; 
and the remaining words are aconv(I) through 
ACONV (10). 

For output, the specification nAw causes n succes- 
sive fields of w characters each to be transferred from 
core storage to the device specified. 

In both input and output, w must not exceed the 
word size of the list elements. That is, w must not be 
greater than k (for integer elements in the list) or f +2 
( for real elements in the list ) . 

With A conversion, input is read into core storage in 
inverted order, If this data is printed from core storage 
with any other conversion, the output appears in its in- 
verted order. For example, with A conversion, velocity 
would be read into core storage as yticolev. If A con- 
version is used for output, it would be printed as 
velocity. However, if any other conversion is used 
for output, this data would be printed as yticolev. 

H conversion 

The specification nH is followed by n alphameric char- 
acters in a FORMAT statement. A comma must separate 
successive specifications, including the H conver- 
sion, used in the format statement. The separating 
comma must appear after the last alphameric charac- 
ter; the last character may be a blank. An example is 
. . . , 4HABCb, . . . 

For input, n characters are extracted from the input 
record and replace n characters of the appropriate 
source program format statement. 
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For output, the n characters following the speci- 
fication (or the characters that replace them through 
the action described above ) are written as part of the 
output record. If the write statement refers to the 
Standard Print Unit and the first specification for a 
record is an H conversion, the first character of the 
alphameric information is not printed but is used to 
control vertical spacing of the carriage of the printer. 

For example: 



9 FORMAT( 26HbbbTHISbISbALPHAMERICbINFO ; 



WRITE (3,9) 



These statements cause the specified heading to be 
printed, indented two spaces from the left, by the 
Standard Print Unit. Note that blanks are considered 
in A and H conversion to be alphameric characters 
and must be included as part of the character count. 

Blank Fields, X Conversion 

The specification nX introduces n blank characters into 
an input/output record. The number n must always 
be less than 133 ( the maximum record size ) . A comma 
must separate successive specifications, including the 
X conversion, used in the format statement. 

For input, nX causes n characters of an input record 
to be ignored. 

For output, nX causes n blank characters to be 
placed into the output record. This conversion is used 
to space within an output record. 

Repetition of Field Format 

It may be desired to transfer n successive fields within 
the same record with the same format specifications. 
This is indicated by placing a number n ( an unsigned 
integer constant) before the E, F, I, or A. Thus, the 
specification 3E12.4 is the equivalent of E12.4, E12.4, 
E12.4. 

Repetition of Groups of Fields 

Limited parenthetical expressions are permitted in 

format specifications to indicate the repetition of data 

fields within a record. One pair of nested parentheses, 

in addition to the parentheses required by the format 

statement, is permitted. For example: 

FORMAT (2(F10.6, 3E12.2), 16) is valid, but 
FORMAT (2(F10.6, 3(E12.2, 16) ) ) is not valid. 

The valid format example above is equivalent to 

FORMAT (F10.6, E12.2, E12.2, E12.2, F10.6, E12.2, 
.E12.2, E12.2, 16). 



Scale Factors, P Conversion 

To permit a general use of E and F conversion, a scale 
factor followed by the letter P may precede a speci- 
fication. 

The scale factor is defined for F input conversion 
as follows: 
10- (scale factor) x external quantity = internal quantity 

The scale factor is defined for E and F output con- 
version as follows: 
external quantity = internal quantity X 10 (s^ai^ factor) 

For input, P conversion can be used only with F 
conversion. For example, if input data is in the form 
xx.xxx, and it is desired to use it internally in the form 
.xxxxx, the specification that will make this change is 
2PF7.3. 

For output, P conversion may be used with both 
E and F conversions. The following examples of F 
conversion use the same data; vertical line separate 
the four adjacent fields. 



Specification 


Data Fields 


12, 3F11.3 
I2,-1P3F11.3 
12, 1P3F11.3 


27 
27 
27 


bbbb-93.209 
bbbbb-9.320 
bbb-932.097 


bbbbbb-.007 
bbbbbb-.OOO 
bbbbbb-.075 


bbbbbbb.553 
bbbbbbb.055 
bbbbbb5.536 



A positive scale factor used for output with E con- 
version increases the base and decreases the exponent. 
The following example shows this effect (using the 
same data as in the previous examples ) . 



Specification 


Data Fields 


12, 1P3E12.4 
12, 3E12.4 


27 

27 


b-9.3209Eb01 
bb-.9320Eb02 


b-7.5804E-03 
bb-.7580E-02 


bb5.5362E-01 
bbb.5536Eb00 



The scale factor is assumed to be zero if no value 
is given. However, once a value has been given, it 
will hold for all E and F conversions following the 
scale factor within the same format statement. Thus, 
the specification 

1PE12.4, E14.5, F8.3 

is equivalent to: 

1PE12.4, 1PE14.5, 1PF8.3 

If it is desired to have only the first item in that speci- 
fication affected by P conversion, the specification 
should be written: 

1PE12.4, 0PE14.5, F8.3 

Multiple-Record FORMAT Statements 

To deal with many records, a single format statement 
may have several single-record format specifications 
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separated by a slash (/) to indicate the beginning of 
a new record. 

For example: 
FORMAT (3F9.2, 2F10.4/8E14.5) 
will transfer the first, third, fifth, .... records with the 
specification 3F9.2, 2F10.4; and the second, fourth, 
sixth, .... records with the specification 8E14.5. 

If a single multiple-record format statement is re- 
quired in which, for example, the first two items are 
unique and all the remaining items are to be trans- 
ferred to the same specification, the specification for 
these remaining items must be enclosed in a pair of 
parentheses. 

For example: 
FORMAT ( 12, 3E12.4/ ( 10F12.4 ) ) 
would transfer the first record with the specification 
12, 3E12.4 and all succeeding records with the speci- 
fication 10F12.4. That is, the repetition starts from the 
last left parenthesis. 

If data items remain to be transferred after the 
specifications have been "used," the specification will 
repeat from the last left parenthesis. 

For example, in the statement 
FORMAT (12, 4E12.4/(3F12.4)) 
the specification used for repetition is (3F12.4) 

The equivalent of blank lines between output rec- 
ords, or records skipped for input records, may be 
introduced into a multiple-record format specification 
by consecutive slashes. The number of records skipped, 
or blank lines inserted, is a function of the number 
and placement of the slashes, as summarized in the 
following table. 



FOR N CONSECUTIVE SLASHES 


INPUT RECORDS SKIPPED 

OR 

BLANK LINES INSERTED 

IN OUTPUT 


At the beginning of the format 
specifications - e.g., FORMAT 
(///I6) 


n 


In the middle of the format speci- 
fications - e.g., FORMAT 
(I6///I6, 19) 


n-1 


At the end of the format specifi- 
cations - e.g., FORMAT (16///) 


n 



For example, if the statement format (12, E12.4//// 
F12.3) is used for printed output, three blank lines 
will be inserted between the data specified by 12, E12.4 
and the data specified by F12.3. 



carriage of the printer for vertical forms control. Car- 
riage control characters are listed in the publication 
IBM 1410/7010 Operating System; System Monitor, 
Form G28-0319. The character can be placed in the 
output record by means of A or H conversion. A blank 
causes normal single spacing before the line is printed. 
The carriage control character also can come from 
X, I, E, or F conversion. (Horizontal forms control is 
determined by format statement specifications. ) 

I/O List and FORMAT Statement Relationship 

The list included in each general i/o statement desig- 
nates the data to be transmitted from the input medium 
or to the output medium. However, the sequence of 
information within a record is controlled by the 
format statement. H and X conversions are read from, 
or are placed in, the record in the sequence indicated 
in the format statement. E, F, I, or A conversions, 
when specified in the format statement, operate upon 
the first unused item in the list. 

Even though a format statement may handle more 
information fields than are indicated by items in the 
i/o list, execution of the i/o statement terminates when 
the last item on the list is transmitted and any immedi- 
ately following format specifications not requiring a 
list element are completed. 

If items remain to be transferred after the format 
specification is "used," the specification is reused until 
all items are transferred as described earlier under 
"Multiple-Record format Statements." 

As an example of correspondence between items of 
the list and the format specification, consider the fol- 
lowino; two statements: 



12 FORMAT ( lOX, ISHAPPRAISEDb VALUE// 
(GHbWARDb, 12, 5X, F8.2) ) 



WRITE (3,12) (K,VALUE(K),K = 1, J) 

The purpose of the example is to print results of cal- 
culations made, by ward, of the average appraised 
value of residential units. If J = 14, the printed matter 
has this appearance: 

APPRAISED VALUE 
WARD 1 12654.12 



Carriage Control 

If the "i" in a formatted write statement refers to the 
Standard Print Unit, the first character in each output 
record is used to control the vertical spacing of the 



WARD 14 



26223.68 



Since the format statement governs the sequence 
of information in a line, nine spaces are left and 
appraised value is printed. One line is skipped. On the 
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second line, ward followed by a space appears first. 
This is followed by an integer which may be up to two 
digits. The integer to be inserted is the first item on the 
list, K. Five blank spaces are next inserted. The list is 
again referred to for the name associated with F8.2, 
VALUE (k). Successive lines are printed until the list is 
exhausted since each re-scan implies a new record. 



Data Input to an Object Program 

Data input to an object program is contained in records 
conforming to the specifications described below. 

1. The maximum formatted record length is 133 
characters. 

2. The data must correspond in order, type, and field 
width to the specifications in format statements. Read- 
ing starts with the first character position. 

3. Plus signs are indicated by either a blank ( c bit, 
no punch) or a " + " (c,b,a bits, 12 punch). Minus signs 
are represented by a " — " (b bit, 11 punch). 

4. Blanks within numeric fields are regarded as zeros. 

5. Data for E and F conversion may contain any 
number of digits, but only the high-order f digits will 
be retained ( see "Constants" in Part 1 ) . Numbers for I 
conversion may contain any number of digits, but only 
the low-order k digits are retained. 

6. As previously explained, numbers for E conver- 
sion need not have all columns devoted to the ex- 
ponents; that is, Esdd (where s is the sign and dd the 
exponent ) need not have a leading zero if it is less than 
10. This and other valid forms are: 

E + 2, E2, +2, -1-02, Eb02, Eb2, E-22, E-2, and -2. 

7. Numbers for E and F conversion need not have 
the decimal point punched in the card; the format 
specification will supply the required decimal point. 
For example, —09432-1-2, with the input specification 
E12.4, will be treated as if the decimal point is punched 
between the zero and the 9. ( The 4 in the specification 
E12.4 will produce four decimal places. ) If a decimal 
point is punched, it will override the position specified 
by the format specification. 

8. If cards contain numbers for E conversion, the 
numbers must be punched in the low-order positions 
of their respective fields, w. 



Symbolic Input/Output Unit Designation 

Input and output units are referred to symbolically in 
i/o statements. These references are indicated as "i," 
an unsigned integer constant or integer variable in the 
descriptions of the general forms of these statements. 
The correspondence between the symbolic units and 



the actual physical devices is made when the object 
program is to be run. For a description of control in- 
formation and procedures required, see the publication 
IBM 1410/7010 Operating System; System Monitor, 
Form C28-0319. 

If i is a variable name, this name must be assigned 
a numeric value by the program before the i/o state- 
ment is executed. Any Fortran statement or operation 
that assigns a numeric value to the variable name may 
be used. The form of the constant i is restricted to a 
single integer digit as shown below; e.g., 04 is invalid. 

At the time of execution of the i/o statement, the 
numeric value of i determines which Operating System 
unit is operated on as follows: 



VALUE OF 1 

1 

2 
3 
4 
5 
6 
7 
8 
9 



Work Tapes 



SYMBOLIC UNIT 

Standard Input Unit 
Standard Punch Unit 
Standard Print Unit 

MWl 

MW2 

MW3 

MW4 

MW5 

MW6 



Only formatted input operations, i.e., read (i,n), 
can be performed on unit 1; only formatted output 
operations, i.e., write (3,n) and write (3,n), can be 
performed on units 2 and 3; all i/o operations can be 
performed on the work tapes designated as units 4 
through 9. 

FORTRAN work tapcs have the label characteristics 
used for the system files. Fortran uses the iocs to write 
the standard labels, which include the number of char- 
acters in the label, the file serial number, file identifica- 
tion, the creation date, and the reel sequence number. 
Information concerning tape labels is presented in 
greater detail in IBM 1410/7010 Operating System; 
Basic Input /Output Control System, Form C28-0322. 



General Input/Output Statements 

Input — The READ Statement 

There is one input statement: read. This statement is 
used to transfer information from input devices to the 
computer. 



General Forms 



READ (i, n) List 
READ (i) List 

i is an unsigned integer constant or integer variable 

specifying the symbolic unit to be used for data input. 

n is the statement number of the fobmat statement 

describing the data to be transferred. 
List is an input list. 
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EXAMPLES 

READ(1, 3)A,(B(I),I = 1,99) 
READ(L)J, (B(I),I=J,99) 

The READ(i, n)List statement causes information to 
be read from symbolic unit i according to format 
statement n. 

The READ(i)List statement causes information in 
internal format, as on a work file, to be read from 
symbolic unit i into core storage. The information 
must have been previously written with the white ( i ) 
List statement. 

The first form of the read statement reads in suc- 
cessive data records (or parts of a data record) until 
the entire list is satisfied; that is, until all data items 
specified by the list have been read, converted, and 
stored. 

The list in the second form of the read statement 
must not be longer than the number of words in a 
record. If the list is equal to the word count, the entire 
record is read. If the list is shorter than the word 
count, the unread items in the record are skipped. 
This form of the read statement does not require for- 
mat specifications, as no conversion is required. 

Output - The WRITE Statement 

There is one statement that is used to transfer informa- 
tion from the computer to output devices; write. 



General Forms 



WRITE (i,n) List 
WRITE (i) List 

i is an unsigned integer constant or integer variable speci- 
fying the symbolic unit to be used for data output. 

n is a FORMAT statement number. 

List is an output list. 



examples 

WRITE (L3)A,(B(I),I = 1,99) 
WRITE (4)J,(B(I),I = J,99) 

The first form of the write statement causes informa- 
tion to be written on symbolic unit i according to 
FORMAT statement n. The information is recorded in 
one or more physical records as specified by the 
FORMAT statement. 

The second form of the write statement causes 
information to be written in internal format on sym- 
bolic unit i. A FORMAT statement is not used since no 
conversion is performed. The information specified by 
the list is considered to be one logical record although 
it may be written as more than one physical record. 

The unformatted form can be used to write a scratch 
file for internal use by an object program. 



Manipulative Input /Output Statements 

The statements end file, rewind, and backspace ma- 
nipulate work tapes, units 4 through 9, as described 
below. 

END FILE Statement 



General Form 



END FILE i 

i is an unsigned integer constant or integer variable 
specifying the symbolic unit. 



The end file statement causes a tape mark to be 
written on symbolic unit i. 



EXAMPLES 



END FILE 5 
END FILE N 



REWIND Statement 



General Form 



REWIND i 

i is an unsigned integer constant or integer variable speci- 
fying the symbolic unit. 



The rewind statement causes the tape reel mounted 
on symbolic unit i to be rewound. 



examples 



REWIND 4 
REWIND N 



BACKSPACE Statement 



General Form 



BACKSPACE i 

i is an unsigned integer constant or integer variable speci- 
fying the symbolic unit. 



The backspace statement causes the tape reel mounted 
on symbolic unit i to be backspaced one physical rec- 
ord if the tape was written under format control, or 
one logical record (which may consist of more than 
one physical record) if the tape was written without 
format control. The logical record that is backspaced 
consists of the contents of the list of the associated 
write (i) List statement. 

examples 

BACKSPACE 9 
BACKSPACE N 
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Subprograms: Function and Subroutine Statements 



The FORTRAN language defines Statement Functions 
and three classes of subprograms: Built-in Functions, 
FUNCTION subprograms, and subroutine subprograms. 
Their uses and differences are discussed in this section 
of the manual. 



latter case the impHcit type is overridden by the ex- 
plicit specification. 

The type (real or integer) of a subroutine sub- 
program is not defined since the result returned to the 
main program is dependent only on the type of the 
variable names in the argument list. 



Advantages of Subprograms 

The advantage of subprograms stem primarily from 
their ability to be compiled separately. A program 
can be written as a short main program and a number 
of subprograms. Changes or error correction can then 
be made to the segmented program by the re-compiling 
of only the affected subprograms. 

Other advantages are that any subprogram can 
be placed in the System Library for use with other 
programs and that program segmentation permits more 
than one person to be simultaneously writing a large 
program. 



Functions and SUBROUTINE Statements 

As a group, Statement Functions, Built-in Functions, 
and function subprograms can be simply called func- 
tions. Functions differ from subroutine subprograms 
in that functions always return a single result to the 
calling program, whereas subroutine subprograms may 
return more than one value to a calling program. 



Naming Subprograms and Statement Functions 

Statement Functions and subprograms are named in 
the same manner as Fortran variables ( see "Constants, 
Variables, Subscripts, and Expressions" ) . 

A subprogram name consists of one to six alpha- 
meric characters, the first of which must be alphabetic. 

The type (real or integer) of a Statement Function 
may be indicated implicitly by the initial character of 
the name, or explicitly by a Type statement (see 
"The Specification Statements"). In the latter case the 
implicit type is overridden by the explicit specification. 

The type ( real or integer ) of a Built-in Function is 
already specified (Figure 5) and need not be defined 
by the user. 

The type ( real or integer ) of a function subprogram 
may be indicated implicitly by the initial character of 
the name or explicitly by a Type statement. In the 



Defmition and Usage of Subprograms — Valid 
Components 

The following tables summarize the Fortran language 
components that are vaHd in the definition and usage 
of Statement Functions and subprograms. 



Definition of Subprograms 

The following table refers to the kinds of arguments 
listed in the "a" portion of the Statement Function 
general form and in the function or subroutine 
statement. 



As Arguments 
in the Definition 


Statement 
Function 


Built-in 
Function 


FUNCTION 

Sub- 
program 


SUB- 
ROUTINE 

Sub- 
program 


Constant 




Pre- 
defined 






Simple Variable 


X 


X 


X 


Subscripted 
Variable 








Array Name 




X 


X 


Arithmetic 
Expression 








External Name^ 




X 


X 



^The name of a FUNCTION or SUBROUTINE subprogram 
cannot be the same as the name of an argument of that sub- 
program. For example, the following is invalid: FUNCTION 
DAV (I,D,DAV) 

The following table refers to the kinds of arguments 
listed in the "b" portion of the Statement Function 
general form and the kinds of arguments that may be 
used in subprograms headed by the function or sub- 
routine statement. 



Subprograms: Function and Subroutine Statements 21 



In the Body of 
the Definition 


Statement 
Function 


Built-in 
Function 


FUNCTION 

Sub- 
program 


SUB- 
ROUTINE 

Sub- 
program 


Constant 


X 


Pre- 
defined 


X 


X 


Simple Variable 


X 


X 


X 


Subscripted 
Variable 




X 


X 


Array Name 




X 


X 


Arithmetic 
Expression 


X 


X 


X 


External Name 


X 


X 


X 



Usage of Subprograms 

The following table refers to the kinds of arguments 
that can be provided to a Statement Function or a 
FUNCTION subprogram when it is used in an arithmetic 
expression, used with a Built-in Function, and used in 
the CALL statement to a subroutine subprogram. 



Arguments 


Statement 
Function 


Built-in 
Function 


FUNCTION 

Sub- 
program 


SUB- 
ROUTINE 

Sub- 
program 


Constant 


X 


X 


X 


X 


Simple Variable 


X 


X 


X 


X 


Subscripted 
Variable 


X 


X 


X 


X 


Array Name 






X 


X 


Arithmetic 
Expression 


X 


X 


X 


X 


External Name 






X 


X 



Defining Statement Functions 

A Statement Function is defined by a single arithmetic 
statement and is valid only in the program in which it 
appears. It cannot be used by another program or sub- 
program. 



General Form 



a = b 

a represents a function name followed by a pair of 
parentheses enclosing its arguments. These arguments 
must be unique, simple variables, separated by commas. 

b represents an arithmetic expression that does not 
contain subscripted variables. This expression may also 
contain other function names that must have been 
previously defined in the program. 



EXAMPLES 



FIRST(X) = A*X + E 

SECOND (X,B) = A*X-I-B 

THIRD(D) = FIRST (E)/D 

FOURTH (F,G) = SECOND (F, THIRD (C; 

FIFTH(I,A) = 3.0*A**I 



A maximum of 30 variables appearing in "b" may be 
stated in "a" as arguments. The arguments are dummy 
names that serve to indicate the type of variable. Those 
variables included in "b" that are not specified in "a" as 
arguments are parameters of the function. Thus, in the 
first example above, A and E are parameters, X is the 
argument of the function first. 

All Statement Function definitions must precede the 
first executable statement of the source program. There 
is no limit to the number of Statement Functions. 

A typical use of a Statement Function previously 
defined under "Examples" is: 

C = R*SECOND(C + D(l, 2),4.0) 
X of the statement definition takes the value of the 
arithmetic expression C + D(l,2) and B takes the value 
4.0. 



Defining Subprograms 

The method of defining each class of subprogram is 



described below. 



Built-in Function 



Built-in Functions are subprograms that are part of the 
System Library and are predefined. 



General Form 



Name ( ai, a2, . . . , an ) 

Name is the name of the function. The names are pre- 
defined and are listed in Figure 5. 

The arguments, ai, az, . . . , an, may be arithmetic expres- 
sions, subscripted or simple variables, constants, or 
other Built-in Functions. The number of arguments is 
specified for each Built-in Function in Figure 5. 



A list of all the Built-in Functions supplied is given 
in Figure 5. Note that the type ( real or integer ) of each 
Built-in Function is predefined and cannot be changed 
by the user. Note also that the type of the arguments 
is predefined. The core-storage requirements shown in 
the table are approximations. 

To use a Built-in Function, simply use the function 
name with the appropriate arguments in an arithmetic 
statement. For example: 

ROOTl = ( -B + SQRT(B**2-4.0*A*C))/2.0*A 

A Built-in Function name may be used as the argu- 
ment of another Built-in Function. For example, the 
following is valid: 

A = ABS (AMAXl (COS(ALOG( A) ),SORT 
(AMINl (C,D,E)))) 
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Name 



SIN 

COS 

ALOG 

EXP 

SORT 



ATAN 

ABS 
lABS 

FLOAT 

IFIX 

AINT 
INT 

AMOD 
MOD 



AMAXO 
AMAXl 
MAXO 
MAX! 

AMINO 
AMINl 
MINO 
MINI 

SIGN 
ISIGN 

DIM 
IDIM 

SLITE 
SLITET 

EXIT 

DVCHK 

OVERFL 



Description 



Trigonometric sine 

Argument must be less than 10000. radians in absolute value. 

Trigonometric cosine 

Argument must be less than 10000. radians in absolute value. 

Natural logarithm 

Argument must be greater than zero. 

Argument power of e (i.e., e**) 

Argument must be less than 225. 

Square root 

For negative arguments, the square root of the absolute value is cal- 
culated and an error message is given on the Standard Print Unit. 
The user who desires the square root of the absolute value of a 
number can avoid receiving the error message by writing SQRT 
(ABS (A) ) instead of SQRT(A). 

Arc tangent 

Absolute value 

Convert integer argument to real 
Convert real argument to integer 

Take the integral part of a real number (sign of argument times largest 
integer ^ 1 argument 1) 

Argument 1 modulus argument 2 

The absolute value of the modulus is used if the second argument 
should be negative. The result (residue) will be non-negative and less 
than the modulus. If the modulus is zero, a zero answer is obtained 
and an error message is given on the Standard Print Unit. 

Maximum value of two or more arguments 



Minimum value of two or more arguments 

Absolute value of argument 1 times sign of argument 2 

Argument 1 minus the lesser of argument 1 and argument 2 

Simulated Sense Light Manipulation and Testing (see "Machine Indicator 
Tests") 

Exit subroutine (see "EXIT Subroutine") 

Division Overflow (see "Machine Indicator Tests") 

Arithmetic Overflow (see "Machine Indicator Tests") 



No. of 
Arguments 



^2 
^2 
^2 
^2 

^2 
^2 
^2 
^2 

2 
2 

2 
2 

1 
2 



1 

1 



Type of 
Arguments 



Real 
Real 
Real 
Real 
Real 





Real 


Real 




Real 


Real 




Integer 


Integer 




Integer 


Real 




Real 


Integer 




Real 


Real 




Real 


Integer 


2 


Real 


Real 


2 


Integer 


Integer 



Integer 
Real 
Integer 
Real 

Integer 
Real 
Integer 
Real 

Real 
Integer 

Real 
Integer 

Integer 
Integer 



Integer 
Integer 



Type of 
Function 



Real 
Real 
Real 
Real 
Real 



Core-Storage 
Requirements 



Real 
Real 
Integer 
Integer 

Real 
Real 
Integer 
Integer 

Real 
Integer 

Real 
Integer 



1155 

1051 

1194 

739 



1320 

51 
62 

237 

239 

209 
130 

348 
247 



204 
178 
180 
186 

204 
186 
179 
122 

78 
62 

148 
139 

14 
237 

7 

75 

75 



Figure 5. Built-in Functions 



FUNCTION Subprogram 



General Form 



FUNCTION name (ai, as, . . . , a.) 
REAL FUNCTION name (ai, aa, . . . , a„) 
INTEGER FUNCTION name (ai, as, ... , an) 
name is the symbolic name of the function. 
The arguments, ai, 32 ... , a„, must be nonsubscripted 
variable names, or array names, or the dummy names 
of SUBROUTINE or Other function subprograms. There 
must be at least one argument in a function sub- 
program. 



The type of function may be explicitly stated by the 
inclusion of the word real or integer before the word 
FUNCTION, as shown above. 



EXAMPLES 

FUNCTION ARCSIN( RADIAN) 
REAL FUNCTION IROOT (A, B, C) 
INTEGER FUNCTION CONST (INT, J) 

The FUNCTION subprogram is similar to the State- 
ment Function in that it returns only one value to 
the calling program; it is similar to the subroutine 
subprogram in that it may consist of many statements. 

No card should precede the function statement. 

The function subprogram may contain any For- 
tran statement except a subroutine statement or 
another function statement. 
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The arguments of the function subprogram may be 
considered to be dummy variable names. These are 
replaced at the time of execution by the actual argu- 
ments supplied in the function reference in the main 
program. The actual arguments must correspond in 
number, order, and type to the dummy arguments. 

The relationship between variable names in the main 
program and the dummy names in the function sub- 
program is illustrated in the following example: 



MAIN PROGRAM 



A = SOMEF (B, C) 



FUNCTION SUBPROGRAM 

FUNCTION SOMEF (C, B; 



SOMEF = B/C 



RETURN 
END 

In the example, the value of variable B of the main 
program is used in the subprogram as the value of the 
dummy variable C, and the value of C is used in the 
subprogram for the value of B. Thus, if the value of B 
is 10.0 and the value of C is 5.0, the value returned by 
the subprogram is 0.5 ( not 2.0 ) . 

When a dummy argument is an array name, an 
appropriate dimension statement (see "The Specifica- 
tion Statements") must also appear in the function 
subprogram. The corresponding actual argument must 
be an array name that appears in a dimension or 
COMMON (With Dimensions) statement in the main 
program. 

None of the dummy names in the subprogram may 
appear in an equivalence or common statement in the 
function subprogram (see "The Specification State- 
ments" ) . 

The value of the formal arguments of a function 
subprogram must not be redefined in the subprogram. 
That is, they must not appear on the left side of an 
arithmetic statement, nor in an input list, nor as the 
index in a do statement. Variables that appear in com- 
mon storage may not be redefined either. For example, 
the following violates this rule: 

FUNCTION SAM (A, B, K) 
COMMON J 
J=J + 1 
K=J 

The function subprogram must return control to 
the main program with a return statement. 

The name of the function must appear at least once 
as the variable name on the left side of an arithmetic 
statement or in an input statement. For example: 



MAIN PROGRAM 



ANS = ROOTl*CALC(X,Y,I) 



FUNCTION SUBPROGRAM 

FUNCTION CALC (A,Bj; 



I=J*2 



CALC = A**I/B 



RETURN 
END 



In this example, the values of X, Y, and I are used 
in the function subprogram as the values of A, B, and 
J, respectively. The value of calc is computed and this 
value is returned to the main program where the value 
of ANS is computed. 

end AND RETURN STATEMENTS 

Note that all of the preceding examples of function 
subprograms contain both an end and at least one 
return statement. The end statement specifies, for 
the processor, the end of the subprogram; the return 
statement signifies a logical conclusion of the com- 
putation and returns any value computed and control 
to the calling program. There may, in fact, be more 
than one return statement in a function subprogram. 
For example: 

FUNCTION DAV (D, E, F) 
IF (D.GT.0.1) GO TO 2 



IF (E.LT.F) GO TO 3 



2DAV = 



RETURN 
3 DAV = . . . 



RETURN 
END 

SUBROUTINE Subprogram 



General Form 



SUBROUTINE name (ai, a2, . . . , an) 
name is the name of this subprogram, 
ai, a2, . . . , an are the arguments. (There need not be 
any.) 

Each argument used must be a nonsubscripted variable 
name or array name, or the dummy name of another sub- 
routine or function subprogram. 



EXAMPLES 

SUBROUTINE MATMPY (A, N, M, B, L, J) 
SUBROUTINE QDRTIC (B, A, C, ROOTl, ROOT2) 
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No card should precede the subroutine statement. 

The SUBROUTINE subprogram may use one or more 
of its arguments to return values to the calling program. 
Any arguments so used must appear on the left side 
of an arithmetic statement or in an input list within 
the subprogram. 

The arguments may be considered dummy variable 
names that are replaced at the time of execution by 
the actual arguments supplied in the call statement. 
The actual arguments must correspond in number, 
order, and type to the dummy arguments. 

When a dummy argument is an array name, a di- 
mension statement must appear in the subroutine 
subprogram. The corresponding actual argument in the 
CALL statement must also be a dimensioned array name. 

None of the dummy arguments may appear in an 
equivalence or common statement in the subroutine 
subprogram. 

Like the function subprogram, the subroutine sub- 
program must return control to the calling program by 
a return statement. 

An end statement is also required. 

Subprogram Names as Arguments — The EXTERNAL 
Statement 

Subprogram names may be used as the actual argu- 
ments in the calling program. In order to distinguish 
these subprogram names from ordinary variables when 
they appear in an argument list, their names must 
appear in an external statement ( see "The Specifica- 
tion Statements"). 

The CALL Statement 

The call statement is used only to call a subroutine 
subprogram. 



General Form 



CALL name ( ai, aa, . . . , an ) 

name is the symbolic name of a subroutine svibprogram. 
ai, as, . . . , an are the actual arguments that are being 
supplied to the subroutine subprogram. 



EXAMPLES 

CALL MATMPY ( X, 5, 40, Y, 7, 2 ) 

CALL QDRTIC ( X, Y, Z, ROOTl , ROOT2 ) 

The CALL statement transfers control to the sub- 
routine subprogram and replaces the dummy vari- 
ables with the value of the actual arguments that ap- 
pear in the call statement. The arguments in a call 
statement may be any of the following: any type of 
constant, any type of subscripted or nonsubscripted 
variable, an arithmetic expression, the name of a sub- 
program. 

The arguments in a call statement must agree in 
number, order, type and array size with the corre- 
sponding arguments in the subroutine subprogram. 



Machine Indicator Tests 

The 1410/7010 Fortran language provides machine 
indicator tests even though machine components refer- 
enced by the tests do not physically exist. The machine 
indicators, described below, are simulated by sub- 
routine subprograms located in the System Library. 
To use any of the following machine indicator tests, 
the user supplies the proper arguments and writes a 
call statement. In the following listing, i is an integer 
expression, j is an integer variable. 



GENERAL FORM 



FUNCTION 



SLITE (i) If i = 0, all sense lights are turned off. 

If i=l, 2, 3, or 4, the corresponding 
sense light is turned on. 

SLITET ( i, j ) Sense light i ( 1, 2, 3, or 4 ) is tested and 

j is set to "1" or "2" if i is on or off, re- 
spectively. After the test, sense light i is 
turned off. 

OVERFL ( j ) This indicator is on if an arithmetic op- 

eration with real variables and constants 
results in an overflow^ condition; that is, 
if an arithmetic operation ( of type real ) 
produced a result whose value is greater 
than ( 1 - lO-f ) X lO^e. If the indicator 
is on, j is set to "1"; if off, j is set to 
"2." The indicator is set to off after the 
test is made. 

DVCHK (j) This indicator is set on if an arithmetic 

operation with real constants and vari- 
ables results in the attempt to divide by 
zero; j is set to "1" or "2" if the indicator 
is on or off, respectively. The indicator 
is set to off after the test is made. 



EXAMPLES 

CALL SLITE (3) 
CALL SLITET (K*J,L) 
CALL OVERFL (J) 
CALL DVCHK (I) 

As an example of how the sense lights can be used 
in a program, assume that the statements call slite (i) 
and CALL SLITET (i, ken) have been written. Further 
assume that it is desired to continue with the program 
if sense light i is on and to write results if sense 
light I is off. This can be accomplished using the 
Relational if statement or a Computed go to statement, 
as follows: 



IF (KEN. EQ. 2) WRITE (3,26) ( ANS(K), K=l, 10) 



GOTO (6, 17) KEN 
17 WRITE (3, 26) (ANS(K), K=l, 10) 
6 
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EXIT Subroutine 

A CALL to the EXIT subprogram, located in the System 
Library, terminates the execution of the program and 
returns control to the Monitor. The exit subprogram 
and the stop statement produce identical results. 



General Form 



CALL EXIT 
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The Specification Statements 



The specification statements provide information con- 
cerning storage allocation and the variables used in a 
program. The specification statements are the dimen- 
sion statement, the common statement, the equiva- 
lence statement, and the Type statements. 

DIMENSION Statement 



General Form 



DIMENSION vi(ii), y.iU) ,..., v„(i„) 
vi, V2, . . . , Vn are the names of arrays. 

ii, 12, ... , in are each composed of 1, 2, or 3 unsigned 

integer constants, where each integer specifies the 

maximum value of that subscript. 



EXAMPLE 

DIMENSION A ( 10), B( 5, 15), C(9, 9, 9) 

The dimension statement provides information to 
allocate storage for arrays in an object program. It 
defines the maximum size of each array listed. 

Each variable that appears in subscripted form in 
a source program must appear in a dimension state- 
ment contained within the source program. There is 
one exception to this rule: when the dimension inform- 
ation for the array is given by a common statement. 
See "common (With Dimensions) Statement" in this 
section. 

The required location of dimension statements ap- 
pears later in this section under "Order of Specifica- 
tion Statements." 

A maximum of 200 names may be dimensioned. 
Within this limit, (1) a single dimension statement 
may specify the size of any number of arrays, and (2) 
a program may have any number of dimension state- 
ments. 

Dummy variable array names in subprograms also 
require dimension information in the subprogram. 

COMMON Statement 



General Form 



COMMON a, b, 

a, b, are variable or array names. 



The common statement refers to a common area of 
core storage. Variables or arrays that appear in main 
programs and subprograms can be made to share the 
same storage locations by use of the common state- 
ment. For example, if one program has the statement 
common a and a second program contains the state- 



ment COMMON X, variables or arrays a and x will oc- 
cupy common storage locations. 

The required location of common statements ap- 
pears later in this section under "Order of Specification 
Statements." 

A maximum of 100 names may be declared in com- 
mon by means of this statement and the common 
(With Dimensions) statement. 

Within a specific program or subprogram, variables 
and arrays are assigned storage locations in the se- 
quence in which their names appear in a common 
statement. Subsequent sequential storage assignments 
within the same program or subprogram are made 
with additional common statements. 

As an example, if the main program contains the 
statement 

COMMON A, B, C 
and a subprogram contains the statement 
COMMON X, Y, Z 

then A, B, and c are assigned sequential locations, as 
are x, y, and z. Furthermore, a and x will occupy the 
same location, as will b and y, and also c and z. 

Names declared in common must agree, respec- 
tively, in mode. In the preceding example, a and x are 
real, as are b and y, and c and z. 

A dummy variable can be used in a common state- 
ment to establish shared locations of variables that 
would otherwise occupy different locations. For exam- 
ple, the variable y can be assigned to the same loca- 
tion as the variable c of the previous example with 
the following statement 
COMMON Q, R, Y 

where q and r are dummy names that are not used 
elsewhere in the program. 

Redundant common entries are not allowed. For 
example, the following is invalid: 
Common A, B, C, A 

COMMON (With Dimensions) Statement 



General Form 



COMMON vi (ii),V2 (i2),...,v„(i„) 
vi, V2, . . . , Vn are the names of arrays, 
ii, i2, . . . , in are each composed of 1, 2, or 3 

unsigned integer constants, where each integer specifies 

the maximum value of that subscript. 



EXAMPLE 

COMMON A ( 10 ),B( 5,15,0(5,5,5) 
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This form of the common statement, besides per- 
forming the functions discussed previously for the 
COMMON statement, performs the additional function 
of specifying the size of arrays. 

The required location of common (With Dimen- 
sions) statements appears later in this section under 
"Order of Specification Statements." 

A maximum of 100 names may be declared in com- 
mon by means of this statement and the common 
statement. 

Note: A single common statement may contain 

variable names, array names, and dimensional array 

names. For example, the following is valid: 

DIMENSIONS (5,15) 
COMMON A,B,C( 9,9,9) 

EQUIVALENCE Statement 



General Form 


EQUIVALENCE (a,b, . . .), (d,e, ...),... 

a,b,d,e, ... are simple variables or subscripted 
ables. Subscripted variables must have single 
scripts only and these subscripts must be integer 
stants. 


vari- 
sub- 
con- 



EXAMPLE 

EQUIVALENCE (A(1),B(1),C(5) ),(D(17),E(3) ),(IJ) 
The EQUIVALENCE Statement controls the allocation of 
core storage by causing two or more variables to share 
the same core storage location. 

Each pair of parentheses in the list encloses the 
names of two or more variables to be stored in the same 
location during execution of an object program. These 
variables must be of the same type and must not be 
inconsistent in relative core-storage locations. For ex- 
ample, EQUIVALENCE (a(4),c(2),d(i)),(a(2),d(2)) is invalid. 
The required location of equivalence statements ap- 
pears later in this section under "Order of Specification 
Statements." 

Any number of list items may be given in a single 
equivalence statement. 

In the first example, the A, B, and C arrays are to 
be allocated to core storage so that the elements a(i), 
b(i), and 0(5) are to occupy one location. In addition, 
d(i7) and e(3) are to share another location, as are I 
and J. 

In the second example if a(4), 0(2), and d(i) are 
made equivalent, an equivalence is set up among ele- 
ments of each row below. 
A(l) 
A(2) 

A(3) C(l) 

A(4) C(2) D(l) 

A(5) C(3) D(2) 



Thus, 0(2) must not be made equivalent to a(2). equiva- 
lence (a(3),a(4)) also is invalid. 

Variables or arrays that are not mentioned in an 



equivalence statement are assigned unique locations. 
The sharing of storage locations requires a knowledge 
of which FORTRAN statements cause a new value to 
be stored at a location. 

Execution of an Arithmetic Statement stores a new 
value at the location specified by the variable name at 
the left of the equal sign. 

Execution of a DO Statement changes the index 
each time the program passes through the repetition 
of the DO. 

Execution of a READ Statement stores new values 
at the locations specified by the variable names in the 
list. 

Execution of a CALL Statement stores the values 
of the arguments supplied by the calling program and 
may also aflPect variables in common. 

The user can make double-subscripted variables 
equivalent by noting the following: 

In the equivalence statement, he must refer to 
double-subscripted variables as if they were single- 
subscripted variables. 

example 

a(2,2 ) and b(2,2 ) would be defined in core storage as: 

A(2,2) A(l,2) A(2,l) A(l,l) 
B(2,2) B(l,2) B(2,1)B(1,1) 

Since there are four elements in each array, the user 

can refer to each array as follows when setting up the 

equivalence statement: 

A(4),A(3),A(2),A(1) 
B(4),B(3),B(2),B(1) 

For example, a(i,2) and b(2,i) can be made equivalent 

by the following: 

EQUIVALENCE (A(3), B(2) ) 

Note: When referring to a subscripted variable in 
the equivalence statement, the user must refer to the 
variable as it was dimensioned (double-subscripted) 
— otherwise the statement will be flagged as an error. 

COMMON and EQUIVALENCE Statements - Special 
Considerations 

No two elements that appear in a common statement 
may be made equivalent. Both of the following exam- 
ples are invalid: 

COMMON A,B COMMON A,B 

EQUIVALENCE ( A,B ) EQUIVALENCE ( A,R ) ; 

(R,D),(D,B) 

equivalence statements may extend the size of the 
COMMON area. For example, the following is valid: 
DIMENSION C( 4) 
COMMON A,B 
EQUIVALENCE ( B,C ( 2 ) ) 

It would produce the following relationship in the 

COMMON area: 

A C(l) 

B C(2) 

G(3) 

C(4) 



28 



The following is an example of an invalid set of 

statements: 

DIMENSION C( 4) 
COMMON A,B 
EQUIVALENCE (A,C(2)) 

It would imply the following relationships in the 
COMMON area: 



C(l) 
C(2) 
C(3) 
C(4) 



Thus as shown above, the common statement de- 
termines the first element that is to appear in the 
common area; the equivalence statement may not 
change the position of this element. 

Type Statements (INTEGER, REAL, EXTERNAL) 



General Form 



INTEGER a,b,c, ... 
REAL a,b,c, ... 

a,b,c, . . . are variable, Statement Function, or function 
subprogram names appearing in a program or sub- 
program. 
EXTERNAL x,y,z, . . . 

x,y,z, . . . are subprogram names used as arguments of 
other subprograms called by the program. 



EXAMPLES 

INTEGER DAV, ZZZ, LYSL, JOB 
REAL lAM, LEG, KKKK 
EXTERNAL SIN, MATMPY 

The REAL and integer statements explicitly define the 
type (real or integer) of variable, Statement Function, 
or function subprogram. In the first example, the 
variable dav implicitly would be a real variable, but 



the explicit statement causes it to be handled as an 
integer variable in the program. The appearance of a 
name in either of these statements overrides any im- 
plicit-type specification. 

A program using the names of other function or 
SUBROUTINE Subprograms as arguments requires an 
EXTERNAL Statement. The statement distinguishes the 
names of subprograms external to the calling program 
from the variables of the calling program. For example, 
assume both somef and other are subprograms. If 
A = SOMEF (other, b, c) 4" b appears in a program, 
the Type statement external other is required in the 
program. 

Similarly, if call somef (b, c, other) appears in a 
program, the Type statement external other is re- 
quired. 

Type statements must precede any other specifica- 
tion statements and all executable statements in the 
source program. 

A name may appear in two Type statements only if 
one of the statements is external. 

Order of Specification Statements 

All Specification statements must precede the first 
executable statement of the source program. The 
Specification statements must also precede all State- 
ment Function definition statements, and must appear 
in the following order: 

Type Statements (REAL, INTEGER, EXTERNAL) 
DIMENSION 
COMMON 
EQUIVALENCE 

( Follow with FORMAT statements, then Statement Func- 
tions. ) 



The Specification Statements 29 



PART 2 - FORTRAN AS AN OPERATING SYSTEM COMPONENT 



Monitor Card to Execute FORTRAN 

The EXEQ card is a Monitor control card that causes a 
program to be loaded and executed. When the first 
operand of this card is Fortran, the Fortran processor 
is loaded and a source program is compiled. Other 
Monitor control cards required to process a job are 
explained in the publication IBM 1410/7010 Oper- 
ating System; System Monitor, Form C28-0319. 

The EXEQ card format and the operands available 
to the user desiring to compile a Fortran source pro- 
gram are explained below: 

EXEQ CARD FORMAT EXAMPLES 
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MON$$ EXEQ F0RTRAN,S0F,SIU,7,12,PCH,FLT,NAMEX 
MON$$ EXEQ FORTRAN,MJB,SIU,7„PCH„MAINrROGRM 
M0NS$ EXEQ FORTRAN,„13 

Columns 6-10 contain the characters mon$$ to 
identify the card as one directed to the System Monitor. 

Columns 16-20 contain the letters exeq. 

Columns 21-72 may contain up to eight operands. 

These standard rules for operands apply: operands 
must be separated by a comma; operands cannot con- 
tain blanks; an intentionally omitted operand must be 
indicated by placing a comma adjacent to the preced- 
ing comma (except when the omitted operand is the 
last operand used ) . 

The first three operands are required by the System 
Monitor and must either be included or their omission 
indicated by a comma. The fourth and following 
operands are read by the Fortran processor. An in- 
valid parameter or error following the third parameter 
causes ( 1 ) a diagnostic message number to be printed 
immediately following the title line of the source pro- 
gram diagnostic listing, and (2) assumed operands 
indicated below to be used in the compilation in place 
of the erroneous operand and all subsequent operands 
on the card. Compilation proceeds. 

The eight operands must appear in the following 
listed order: 



OPERAND 

NO. OPERAND AND MEANING 

1 FORTRAN must be specified. 

2 SOF or MJB — This operand specifies the file con- 
taining the FORTRAN compiler. SOF is the 
System Operating File; MJB is the Job file. If 
this operand is omitted, the compiler is assumed 
to be on the SOF. 

3 SIU, AIU, or any work ( MWn ) or reserve ( MRn ) 
tape unit. If this operand is omitted, the source 
statements must immediately follow this EXEQ 
card on the unit containing this card— either the 
Standard Input Unit (SIU), or the Alternate 
Input Unit (AIU). 

4 Real number precision (f) is specified by a one- 
or two-digit number from 3 through 18. Numbers 
3 and 03 are acceptable, but 003 is not accept- 
able. If the operand is omitted, the FORTRAN 
processor assumes 8. 

5 Iifteger precision (k) is specified by a one- or 
two-digit number from 3 through 20. If the op- 
erand is omitted, the processor assumes 5. 

6 PCH — If this operand is vised, the object pro- 
gram is put on the Standard Punch Unit or is 
written on the magnetic tape unit assigned to 
perform functions of the Standard Punch Unit. 
If the compiled program is not to be executed 
immediately (that is, not a compile-and-go oper- 
ation), PCH must be specified to produce an 
object deck. 

7 FLT — This operand must be specified if the 
object program is to be run on an ibm 7010 
equipped with the Floating-Point Arithmetic fea- 
ture. The operand must be omitted (except for 
the trailing comma) for all other ibm 7010 Sys- 
tems and all ibm 1410 Systems. 

8 Program name. This operand, which can be one 
to ten alphameric characters with the first char- 
acter alphabetic, defines the title for the main 
program to be processed. If this operand is 
omitted, the processor assigns the title MAIN- 
PGM. When subprograms are compiled, this op- 
erand is ignored. 

Control Card Requirements 

The sequence of the appropriate Monitor and Linkage 
Loader control cards needed to compile and execute 
the FORTRAN program is shown in Figure 6. 

Figure 7 shows the sequence of the appropriate 
Monitor and Linkage Loader control cards necessary 
to execute the Fortran object program. 
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MON$$ EXEQ FORTRAN, 
SOF,,,,,,SUB2 



SOURCE PROGRAM 



MON$$ EXEQ FORTRAN, ^ 

SOF,,,,,,SUBl 



SOURCE PROGRAM 



MON$$ EXEQ FORTRAN, 
SOF,,,,,,ORBiT 1 





Figure 6. Sample Control Cards for a Compile-And-Go Operation 
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Figure 7. Sample Control Cards for Execution of a Fortran Object Program 



TITLE Card 

The TITLE card (see "TITLE Card" in IBM 1410/7010 
Operating System; System Monitor, Form C28-0319) 
defines the name of an object program and is the first 
record of that program. Produced by the fortban 
processor during compilation, the title card contains 
the current date, the program name, and the base 



(location in core storage) to which the program was 
compiled. Although such information is included in the 
title card produced by the Autocoder processor, the 
title card produced by the Fortran processor does 
not contain the size of common. Therefore, when 
processing a Fortran program, the Linkage Loader 
cannot consider the size of common in checking to 
ensure that core storage is not exceeded. 
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Source Program Listing 



The Souirce program listing produced by a Fortran 
compilation is written on the Standard Print Unit. 
The two major parts of the listing are (1) the listing 
of the source program statements with diagnostic 
messages, and (2) a memory map of the object pro- 
gram. 

Source Program Diagnostic Listing 

The following items appear with the listing of source 
program statements: 

J. Title Line. Each page of the source program di- 
agnostic listing carries a title line containing the page 
number. 

2. Source Program Statements. All statements are 
listed without blanks, except format statements. 

3. Message. Diagnostic message numbers are printed 
to the left of the statements to which the messages 
apply. The corresponding messages are listed in Part 
3 of this manual. The message number is sometimes 
followed by a number indicating the character posi- 
tion in the printed statement where the error was 
found. The first character of the statement is considered 
character number 6. Each print position should be 
counted. Some messages also include the name of the 
variable or the missing statement number that caused 
the error. 

Diagnostic messages for context errors, such as 
terminating a do on a nonexecutable statement, follow 
the listing of source statements. These messages may 
include the statement numbers of the affected state- 
ments. 

A warning message is printed as a three-digit num- 
ber. Any additional information associated with the 
message is printed on the following line. 

Memory Map 

The memory map of the object program is arranged in 
four pairs of "fortran name," "location" headings 
across the page as shown in Figure 8. The map includes 
the addresses, before relocation, of constants, variables, 
and the beginning of coding of executable numbered 
statements. The items appear in the list in the sequence 
given below. (Items illustrated in Figure 8 are num- 
bered to correspond with this list.) 

1. Names Declared in COMMON. The name is 
printed to the left of its address. 



2. Integer and Real Constants. The value of the con- 
stant is printed under "fortran name." The constants 
are shown as they appear in core storage. 

3. Integer Variables. Both simple integer variables 
and integer arrays are listed next. The address printed 
for an array is its base address. This is the highest 
core-storage address in the array and corresponds to 
the address of the first element. Since some of these 
variables may have been brought into common by 
equivalence, common addresses may be included. 

4. Real Variables. These are mapped in the same 
manner as integer variables. 

5. Statement Numbers. Each statement number is 
printed with an address. This is the address of the 
first machine instruction generated by the statement. 

Any forward reference to a statement number causes 
additional printing. A forward reference is a reference 
(go to n, if (a) Ui, n2, Ua, etc.) to a statement number 
that has not previously appeared on a statement. 

There are two types of forward references: uncon- 
ditional and conditional. Unconditional forward ref- 
erences are those for which unconditional branch in- 
structions are generated; e.g., such an instruction is 
generated for the reference to statement number n 
in the statement go to n. Conditional forward ref- 
erences are those for which some conditional branch 
instructions are generated; such an instruction ( in this 
instance, Branch if Zero Balance ) is generated for the 
reference to statement number n2 in the statement if 
(a) ni, n2, Us. 

At the first unconditional forward reference to a 
statement number, a memory map entry is printed. 
This entry contains the statement number to which 
reference is made, the address of the reference, and 
the tag for. to denote an unconditional forward ref- 
erence. No memory map entries are printed for sub- 
sequent unconditional forward references to the same 
statement number. 

At the first conditional forward reference to a state- 
ment number, a memory map entry is printed. This 
entry contains the statement number to which refer- 
ence is made, the address of the reference, and the 
tag CFOR. to denote a conditional forward reference. 
No memory map entries are printed for subsequent 
conditional forward references to the same statement 
number. 

Any forward reference to a statement number causes 
still another memory map entry. This entry is printed 
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when the statement number appears on a statement; 
the entry contains the address of the last forward 
reference (unconditional or conditional), the address 
assigned to the statement number, and the tag def. to 
denote statement number definition. 

There are three possible combinations of forward 
references and definitions: 

1. CFOR., then def. 

2. FOR., then DEF. 

3. CFOR., then for., then def. 

For the cfor./def. and for./def. combinations, the 
CFOR. and for. entries point directly to the def. entry. 
For the cfor./for./def. combinations, the cfor. entry 
points to the for. entry, and the for. entry points to 
the DEF. entry. 
For example (see Figure 8), suppose that at location 



01370 there is a forward reference to statement number 
301. If the coding for statement 301 begins at location 
01997, the following two entries will be made in the 
printed output: 

00301 FOR. 01370 

01370 DEF. 01997 

6, Program Size and Entry Point. The last line of the 
printed output states the size of the compiled program, 
excluding the common data area, and the location of 
its entry point. 

7. Size of COMMON. The size of the common area 
can be determined by reference to the listing that ap- 
peared as output on the spr as a result of program 
compilation. The number of characters used is specified 
at the end of the program, before the memory map. 
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DEF. 
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Figure 8. Memory Map of an Object Program 
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Calculation of Active Subscript Expressions 



The FORTRAN processor reduces the size and execution 
time of the object program by avoiding redundant 
calculations to obtain the memory locations of sub- 
scripted variables. Immediate repetition of the same 
subscript or an equivalent subscript for the same or 
diflferent arrays is subject to subscript optimization. 

A FORTRAN object program reserves up to 100 index 
cells to hold subscript information. If this limit is ex- 
ceeded, a diagnostic message is produced. The user 
may determine that this limit will be exceeded by 
knowing: 

1. When an index cell is reserved for a newly defined 
subscript expression appearing in a source program 
statement; 

2. Which subscript expressions in the source state- 
ments are equivalent and, consequently, use the same 
index cell; and 

3. When a cell is made available during program 
compilation due to deletion of the subscript expression 
held in the cell from the list of active subscripts. 



Terms Used 

An array name in a source statement is subscripted 
with either a literal subscript, which has no variables 
in it, or a subscript containing subscripting variables. 
For example, a (3,2) has a literal subscript while 
b(4,j+3,2*m) contains j and m as subscripting variables. 

A subscripting variable may have a multiplicative 
coefficient ( 2 in the preceding example ) , or an additive 
offset ( 3 in the example ) , or both as in c(2*m — 1 ) . 

A subscript expression is the set of three ( or fewer ) 
subscripting variables together with four numbers, 
designated Dl through D4, calculated from the six 
(or fewer) coefiicients and offsets and the three (or 
fewer) array dimensions declared in the dimension 
statement. The form of the subscript expression is 
shown under "Equivalence of Subscript Expressions" 
later in this section. 

Arrays are located in core storage in sequence 

a(l,M,n) a(i,J,k) a(3,1,i), a(3,1,i), 

a(i,i,i) where the last element a(l,m,n) has the low 
address in core storage and the first element has a 
higher address in core storage. The value of the sub- 
script expression i,j,k is the number of core-storage 
positions separating element a(i,j,k) from the first 
element of the array, a(i,i,i). 



The value of the subscript expression is calculated 
in two steps. 

1. The values of Dl through D4 are calculated by 
the processor from values known at compilation time. 

2. The values of the subscripting variables i,j,k are 
not known until the program is being executed. During 
execution, Dl through D4 and the now-known values 
of the subscripting variables are used to calculate the 
value of the subscript expression. 

The index cell contains the value of the subscript 
expression. 

Reserving Index Cells 

An index cell is reserved whenever a nonliteral sub- 
script appears in a source statement and is not equiv- 
alent to a subscript expression already considered 
active. The first nine index cells are index registers; 
up to 91 subsequent cells are pseudo index registers 
that are defined by the compiler. The points in the 
source program at which index cells will be reserved 
by the compiler can be determined by inspecting each 
statement in order in the source deck. 

The appearance of a nonliteral subscript in a source 
program, such as a(i,j), produces object coding to 
calculate the value of the subscript expression cor- 
responding to ( i,j ) , and place the value into an index 
cell. The instruction referring to a(i,j) effectively has 
an address field with the address of the base of the 
array A indexed with the proper zones to indicate the 
index register that is the index cell assigned to (i,j) . 

An immediate repetition of a(i,j) in the source pro- 
gram produces no coding to set an index cell to the 
value of the (i,j) subscript expression, since a cell 
has already been reserved for that value. Conditions 
under which subscript expressions are equivalent and 
can use a single index cell are described under the 
next heading. In general, the equivalence does not 
require the same array A, but the arrays will have 
the same number and sizes of dimensions. 

An index cell is reserved for each subscript ex- 
pression that is not equivalent to a subscript expres- 
sion considered active. A subscript expression is 
considered active, and an index cell is reserved for its 
value, until the value of one of the subscripting vari- 
ables is changed by the program. 

Ways in which a subscripting variable may be 
changed by a program are explained under "Deleting 
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Subscript Expressions." An example is the arithmetic 
statement 1 = 1 + 1, which alters I. 

A literal subscript, as bb( 3,65,3), does not require an 
index cell. The proper address in the array bb is calcu- 
lated at compilation time for each instruction requir- 
ing it. 

Equivalence of Subscript Expressions 

Rules to determine whether two subscript expressions 
are equivalent are given in the following paragraphs. 
Expressions that are not equivalent require different 
index cells. 

The form of the subscript expression is Dl, I, D2, 
J, D3, K, D4, where I, J, and K are the subscripting 
variables and the D factors are calculated as explained 
below. Two subscript expressions are equivalent when 
the subscripting variables appear in the same order 
and the four D factors of one subscript expression 
equal, respectively, the four D factors of the other 
subscript expression. 

Consider any array. A, specified as dimension 

A(x,y,z), where the lower-case x, y, and z are integer, 

unsigned constants. 

A for this explanation may represent either an array of 

integer elements or real elements, 
X is the first dimension, 
y is the second dimension, 
z is the third dimension. 

An element of the array is of the form 

A(ci*I-l-Ci',cj*J + cj',Ck*K + Ck'), where 

c coefficients are integer constants, 

c' terms are positive or negative integer offsets, 

I, J, K are subscripting variables. 

For the calculation of the D factors, let 

w = k if A is an array of integer elements, or 
w = f +2 if A is an array of real elements. 

The D factors are calculated as follows: 

Dl = ci*w 

D2 = cj*w*x 

D3 = Ck*v/*x*y 

D4 = (ci'-l)*w+(c,'-l)*w*x+(ck'-l)*w*x*y 

The equation for Dl shows that subscript expres- 
sions of the same mode are not equivalent if the Ci 
values are not identical. 

Note that a subscript expression associated with an 
array of real elements can be equivalent to a subscript 
expression associated with an array of integer elements 
if Dl through D4 of the two expressions are equal. 

D4 defines the necessary conditions on the offsets. 
It shows that two subscript expressions will be equiv- 
alent if values of Dl through D3 are equal and the 
corresponding offsets are identical. 

Deleting Subscript Expressions 

The following paragraphs give the rules to determine 
when the value of a subscript expression changes. The 



change establishes a point of definition at which the 
index cell associated with that subscript expression is 
freed. An expression changes when one of the sub- 
scripting variables in the expression changes. There 
are five points of definition of subscripting variables 
that occur during compilation. 

1. A Referenced Statement Number: A statement 
number to which control transfers is a point at which 
all index cells are freed. Assignment of index cells 
starts over as subscripting variables are encountered 
by the processor. 

2. A DO Statement: A do statement, like a referenced 
statement number, is a point where all index cells are 
freed. ( They are freed since any subscripting variable 
may change in the range of the do. ) 

3. An Arithmetic Statement: If a subscripting vari- 
able is on the left side of the equal sign in the arith- 
metic statement, the only index cells to be freed are 
those with subscript expressions involving the variable. 
Thus, the statement 1 = 1-1-1 frees the cells of a(i, j) 
and b(k,i -I- s) but not the cell for c(k + 3, j — 6). 

4. Input Lists: The appearance of a subscripting 
variable in the list of a read statement frees only the 
index cells associated with that variable. 

An implied do loop in an input list, as in the case of 
the DO statement, is a point where all index cells are 
freed. 

5. CALL Statements: A subroutine subprogram may 
alter its arguments. Consequently, a subscripting vari- 
able as an argument of a call frees any associated 
index cells. For example, the statement call subr 
(i, J + k) frees any index cells associated with I but 
does not affect index cells associated with the indi- 
vidual subscripting variable J and K. Release of the 
index cell is effective after the call so that subscripts 
appearing in the call arguments remain optimized. 

A subroutine subprogram may alter common vari- 
ables. Consequently, the index cells for all subscripting 
variables in common core storage are freed after the 
call statement. 

Since function subprograms do not alter their argu- 
ments or variables in common core storage, the appear- 
ance of a function call in an arithmetic statement does 
not free any index cells. 

Exceeding the 100 permitted subscript expressions 
between points of definition (an infrequent occur- 
rence ) is called to the user's attention by a diagnostic 
message printed out during program compilation ( see 
Part 3). Furthermore, a point of definition can be 
forced at any desired point in the source program. 
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The statement 1 = 1 frees the index cells holding the 
values of subscript expressions involving I. (See rule 
3 above. ) 

A method that frees all index cells utihze rule 1 
above. A statement number to which control never 
transfers can be placed in a Computed go to statement, 
as GO TO (7,io),K where k is always 2. Statement 7 now 
becomes a point of definition at which all index cells 
are freed. 
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Dictionary Space Requirements 



The dictionary is a work area within the Fortran 
processor. The maximum dictionary space available to 
the processor depends on the machine core-storage 
size. The dictionary occupies all space from the end of 
the FORTRAN processor to the memory size specified at 
/ams/ in the Resident Monitor. Refer to the publica- 
tion 1410/7010 Operating System; System Monitor for 
information concerning /ams/. 

The space required by each variable or number in 
a source program is as follows: 

TYPE OF VARIABLE POSITIONS OF CORE 

OR NUMBER STORAGE REQUIRED 

Dimensioned variable 40 

Equivalenced, non- 20 

dimensioned variable 
Non-equivalenced, 10 

simple variable 
Real constant 10 + f + 2, where f is the 

real precision. 
Integer constant 10 + k, where k is the 

integer precision. 
Statement number 10 
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Writing Autocoder Subprograms for the System Library 



The flexibility of the Autocoder language can be in- 
corporated in a FORTRAN program by means o£ 
Autocoder subprograms. Such a subprogram may be 
desired under these circumstances. 

1. Where the number of arguments (and, therefore, 
the length of the calling sequence) may vary, as for a 
general-purpose subprogram; 

2. Where an input/output manipulation or com- 
munication with the Resident Monitor is not avail- 
able to the FORTRAN programmer; 

3. Where character manipulation is necessary, 

4. Where data requires specialized decoding or 
rearrangement before it can be used with Fortran 
statements. 

Both FUNCTION subprograms and subroutine sub- 
programs may be written in Autocoder. The subpro- 
gram is assembled by the 1410/7010 Autocoder proc- 
essor and incorporated into the System Library, where 
it is available to be combined with Fortran programs. 

Understanding of the publications, IBM 1410 or 
IBM 7010 Principles of Operation ( Form A22-0526 or 
A22-6726, respectively) and IBM 1410/7010 Operating 
System; Autocoder, Form C28-0326, is necessary to 
write Autocoder subprograms. 



Calling Sequences 

Subprogram arguments can be made available either 
by: 

1. Declaring the arguments in the common data 
area both in the calling programs and in the called 
subprogram, or 

2. Listing the arguments following the name of the 
function in an arithmetic statement, as a = somef(b,c), 
or following the name of the subprogram in the call 
statement, as call other(D,E). A function subpro- 
gram requires at least one argument following the 
name of the function in an arithmetic statement. 

The call to a function or subroutine subprogram 
generates a calling sequence when the program is com- 
piled. The calling sequence begins with a branch to 
the function or subroutine subprogram followed by 
a series of address constants ( one per argument ) , and 
concludes with a nop. Manipulation of the arguments 
within an Autocoder subprogram is performed by 
moving the address constants into the operands of 
succeeding instructions which can: 



1. "Work on" the argument while leaving it in the 
calling program, or 

2. Bring the argument into a work area defined in 
the subprogram. 

The following table summarizes the form and sig- 
nificance of the generated address constants for 
various types of arguments. 



TYPE OF ARGUMENT, 


FORM AND SIGNIFICANCE 


REAL OR INTEGER 


OF ADDRESS CONSTANT 


Simple variable 


Address of the variable 


Constant 


Address of the constant 


Subscripted variable 


Address of the subscripted varia- 




ble, possibly indexed 


Array 


Address of the base of the array; 




i.e., address of ARRAY (1,1,1) 


Expression 


Address of the value of the com- 




puted expression indexed by XI 


Name of a subprogram 


Address of the subprogram entry 




point 



EXAMPLE 



Assume X is an array and Y is a simple real variable. 
Also assume the Fortran processor assigns index reg- 
ister 4 to the subscript expression of array X. call 
SAMPLE (x(i,j),y) typically compiles into the follow- 
ing calHng sequence in the calling subprogram. 

EFFECTIVE AUTOCODER STATEMENTS 



OPERATION 




CODE 


OPERAND 


DCWS 


SAMPLE 


DCW 


X + X4 


DCW 


Y 


NOP 





Index Register Requirements 

Requirements and conventions for use of the index 
registers are summarized in the following table. 



INDEX 






REGISTER 


AVAILABILITY 


USE AND LIMITATIONS 


XI 


Available if con- 


XI must be preserved for 




tents saved and 


the processor and may be 




restored 


tagged on any argument 
address. After bringing in 
arguments, XI may be 
saved, used, and restored 
like X4 through X12. 


X2, X3 


Available 


Contents v^^ill be destroyed 
by calls to most library 
routines. 


X4 through 


Available if con- 


These registers contain sub- 


X12 


tents saved and 


script index values and may 




restored 


have been specified on any 
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INDEX 
REGISTER 


AVAILABILITY 


USE AND LIMITATIONS 


X13 
X14, X15 


Available 
Not available 


of the arguments to the sub- 
program. Contents must be 
saved in a temporary loca- 
tion and restored before ex- 
iting from the subprogram. 
Contents will be destroyed 
by calls to library routines 
or Monitor functions. XI 3 
must not be left with a 
negative sign when exiting 
from the subprogram. 



Writing the Subprogram 

Basic Requirements 

Each subprogram must be preceded by an Autocoder 
TITLE card. The operand of this statement is the title 
of the function or subroutine subprogram. Fortran 
rules for assigning names to integer and real variables 
must be followed in naming the subprograms (see 
Part 1 of this manual ) . 

The first instruction should store the B-address reg- 
ister contents. Index register 13 is conventionally used 
for this purpose. The entry point of the subprogram 
must be its first position. 

The move instructions that place the address con- 
stants into the operands of subsequent instructions, in- 
cluding return to the desired position in the calling 
program, usually are placed next. This is shown in 
"Examples of Autocoder Subprograms" appearing later 
in this section. 

If any of index registers 4 through 12 are to be used 
in the subprogram, the contents must be saved after 
the address constants are moved and before the index 
register is used by the subprogram. Contents must be 
restored to the index register before returning to the 
calling program. 

Word lengths of integers and real numbers must 
correspond to those of the using programs. 

A label that is a linkage symbol of the form mxx/ 
(where "is" are the first two characters) is not per- 
mitted in the subprogram. 

A word mark must follow the last executable instruc- 
tion of the subprogram. 

Handling Real Arguments 

If the arguments are real numbers, a move instruction 
(mlcwa) can bring in the exponent and a chained 
move (again, mlcwa) can bring in the fraction. This 
is shown in Example 1 of "Examples of Autocoder Sub- 
programs." (The address constant of the calling se- 
quence gives the units position of the exponent. ) 



If the address constants are moved into the operands 
of floating-point instructions, both the exponent and 
fraction are automatically handled by the floating-point 
instructions. A dcws to the floating-point interpretive 
subroutine ibintrp must precede a sequence of floating- 
point instructions unless the object program is to be 
run on an ibm 7010 equipped with the Floating-Point 
Arithmetic feature. 

The handling of real variables is illustrated in "Ex- 
amples of Autocoder Subprograms." 

Common Data Area 

If arguments are obtained from common data area, 
the variable must be declared in common core storage 
within the subprogram by the use of the Autocoder 
DAV statement. 

Using Other Functions 

System Library subroutines may be freely used by 
the subprogram. However, conventional uses of the 
index registers discussed earlier in this section must be 
observed. In particular, the floating-point interpretive 
subroutine (ibintrp) may be used at will. This sub- 
routine accepts indexed addresses in the floating-point 
instructions that it interprets. 

Any argument in the Autocoder subprogram can 
be made available for transmission to another subrou- 
tine by the placing of its address in a calling sequence 
to that subroutine. This is shown in Example 2 of 
"Examples of Autocoder Subprograms." 

The value of f or k can be transmitted from the 
FORTRAN main program to an Autocoder subprogram 
by the use of system symbols /flo/ or /fix/ as oper- 
ands. This permits generalizing a subprogram that 
makes use of the values of f and k so that it will accept 
various values of f and k without subprogram alteration. 

Although designed for Fortran, Built-in Functions 
may be adapted for use in Autocoder. The program- 
mer must write the calling sequence. He must use the 
appropriate parameters (see "Constants"), and define 
the /fix/ and /flo/ symbols. The following cards — 
to be placed into the relocatable deck of the Auto- 
coder program that is to use the Built-in Function — 
will define these symbols: 



1 2 
W 
S aaaaa 


7 8 
W 
S 00004 


13 14 16 17 19 
WWW 
S ff S kk S 


72 
1 


6 

/FLO/ 


16 
DEFIN 


21 
aaaaa + 1 


72 
4 


6 

/FIX/ 


16 
DEFIN 


21 
aaaaa+3 


72 
4 



In the card formats shown, the following holds true: 

W over S is a word separator, 
aaaaa is the load address for the Load record, 
ff is the unsigned real word-size constant (it may range 
from 03 through 18, and includes the exponent). 
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kk is the unsigned integer word-size constant ( it may range 

from 03 through 20 ) . 
/flo/ and /fix/ are the system symbols to be defined. 
aaaaa + 1 is the address assigned to the real word-size 

constant. 
aaaaa-f-3 is the address assigned to the integer word-size 

constant. 
1 and 4 (in columns 72) are record-type indicators. 

Several of the subroutine functions, in turn, call in 
other subroutines. In such cases, the core-stora,ge re- 
quirement is the total of all of the subroutines used. 
When the Linkage Loader processes the object pro- 
gram, it takes the necessary subroutines from the 
library and relocates both the object program and the 
subroutines into an absolute, object-time program. 
Following is a list of subroutine functions that call in 
other subroutines: 

COS requires SIN 

SLITE requires SLITET 

INT calls IFIX 

MINI calls IFIX 

MAXl calls IFIX 

AMINO calls FLOAT 

AMAXO calls FLOAT 

AMOD calls AINT 

Note: ibintrp is called by most of the floating-point 
routines. 

There is no limit to the depth to which calls to other 
subroutines can be nested. 

The Autocoder subprogram must not call a subrou- 
tine that calls the Autocoder subprogram, or causes the 
Autocoder subprogram to be called, unless specific 
arrangements have been made for recursive operation. 

Returning Values to Calling Program 

Either function subprograms or subroutine subpro- 
grams may communicate with the calling program by 
placing information on work tapes. 

FUNCTION SUBPROGRAMS 

Core-storage locations 280-299 are reserved for the 
20-position accumulator used by the floating-point 
instructions. The single result of a function subpro- 
gram, whether that result is type integer or type real, 
must be right-justified in the accumulator. The name 
of the function, whether type integer or type real, in 
the calling program must correspond to the type of 
result. 

function subprograms must alter neither the vari- 
ables that appear in the common data area nor the 
arguments of the function subprogram. 
subroutine subprograms 

subroutine subprograms are permitted to alter vari- 
ables that appear in the common data area. 

subroutine subprograms also are permitted to alter 
their arguments. The argument address may be picked 
from the calling sequence and placed into the B-address 



of the move instruction or the A-address of the floating- 
point store ( FST ) instruction that is to return the value 
to the calling program. 

Examples of Autocoder Subprograms 
Example 1 

This- example illustrates : 

1, Moving the real arguments into work areas for 
use in a subprogram, and 

2. Saving the contents of an index register. 
Assume that the two real arguments of the example 

are to be placed in work areas tempi and temps for use 
in the subprogram. The arguments are eight decimal 
digits plus the two-digit exponent in length. Assume 
that X4 is assigned by the Fortran processor when 
compiling the calling sequence and that X4 is also 
required by the subprogram. Also assume that X13 
will not be altered within the subprogram. 



CALLING PROGRAM 



CALL SAMPLE (A(I),B) 



autocoder subprogram 



EFFECTIVE AUTOCODER 
CALLING SEQUENCE 
OPERATION 

CODE OPERAND 



DCWS 
DCW 

DCW 
NOP 



SAMPLE 

A+X4 
B 



LI 



L2 



OPERATION 

CODE 
TITLE 

SBR 
MLCA 

MLCWA 
MLCWA 

MLCA 
MLCWA 
MLCWA 
MLCA 



OPERAND 

SAMPLE 

4-l-X13,Ll-l-5 
0,TEMP1 



9-HX13,L2 + 5 
TEMP2 



COMMENTS 



Move address of A into 
next instruction 

Move exponent and 
fraction of argument 
A in chain move 

Move in second argu- 
ment ( B ) 
Save X4 



X4,SAVE4 = 5 

( X4 is now free to use and the arguments have been 
brought into the subprogram.) 



Calculations 






MLCA 


SAVE4,X4 


Restore X4 


B 


11-I-X13 


Return to caUing pro 
gram 


DCW 


= 8 




TEMPI DCW 


= 2 




DCW 


= 8 




TEMP2 DCW 


= 2 




END 







Example 2 

This example illustrates: 

1. Calling a function whose name is an argument to 
this Autocoder subprogram and whose value is a func- 
tion of the arguments of this Autocoder subprogram; 
and 
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2. Return of the externally-computed value, via this 
Autocoder subprogram, to the calling program. 

Assume that the arguments are subscripted variable 
a(i), expression b + c, external subroutine extsub, 
and simple variables. The single argument of extsub 
is the sum of the arguments a(i), b + c, and s. The 
result of extsub is to be returned to the fortran- 
language program by altering argument s. Further 
assume that gt + xi is the address of the computed 
expression b + c. 



CALLING PROGRAM 



EXTERNAL EXTSUB 



CALL SAM (A(I),B-I-C, 
EXTSUB, S ) 



AUTOCODER SUBPROGRAM 



EFFECTIVE AUTOCODER 


CALLING 


SEQUENCE 


OPERATION 




CODE 


OPERAND 


DCWS 


SAM 


DCW 


A + X6 


DCW 


GT + Xl 


DCWF 


EXTSUB 


DCW 


S 


NOP 





OPERATION 






LABEL CODE 


OPERAND 


COMMENTS 


TITLE 


SAM 




SBR 


X13 




SBR 


L6-I-5 


Place X13 


A 


+ 21,L6-l-5 


+ 21 into return in- 
struction 


MLCA 


4 + X13,Ll + 5 


Move address constants 


MLCA 


9+X13,L2 + 5 


into floating-point 


MLCA 


19 + X13,L3 + 5 


and branch instruc- 


MLCA 


14 + X13,L4 + 5 


tions 


MLCA 


19-l-X13,L5 + 5 







OPERATION 








LABEL 


CODE 




OPERAND 


COMMENTS 




DCWS 


IBINTRP 


Compute the argument 
for EXTSUB as the 


LI 


ERA 







sum of the first, 


L2 


FA 







second, and 


L3 


FA 







fourth arguments of 
SAM 




EST 


Tl 




Store sum in Tl 


L4 


B 
DCW 



Tl 




Calling sequence for 
the external sub- 



NOP routine 

(Result of external subroutine is conventionally 

stored in the accumulator.) 
DCWS IBINTRP 



L5 



EST 







L6 


B 





Tl 


DCW 
END 


= 10 



Return result to calling 
program as altered 
fourth argument 

Return to calling pro- 
gram. The call to 
IBINTRP destroys 
X13 contents so 
B 21-F-X13 cannot 
be used 



Note: Linkage to routines whose names come as 
arguments is by a branch instruction into which an 
address is moved during execution. A dcws is not used 
here since the name extsub of the routine is unknown 
when the subprogram is assembled. 

The DCWS IBINTRP instructions are omitted if the 
object program is to be run on an ibm 7010 System 
equipped with the Floating-Point Arithmetic feature. 
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CHAIN Feature 



CHAIN is an Operating System feature that handles the 
creating and loading of specified phases of a multi- 
phase program. For the Fortran programmer, chain 
provides a convenient method of segmenting a pro- 
gram that exceeds available core storage into several 
parts to be executed separately, but as a part of the 
same job. chain also enables the Fortran programmer 
to link into one job several programs that must operate 
on the same data and that otherwise would be exe- 
cuted in several consecutive jobs. 

Each segment of a program run under control of 
the chain feature is termed a link. One of two or 
more links is the main link; all other links are de- 
pendent links. The main link is the link that is loaded 
and executed first; it specifies the loading and exe- 
cuting of any, all, or none of the dependent links. All 
links are assigned sequential numbers to permit speci- 
fying desired dependent links. A main link is always 
given the number 1; dependent links are given in- 
creasingly larger numbers, 2, 3, 4, . . . 998, 999. 

Three special Linkage Loader control cards, link, 
coMN, and entry, are used in defining links for a 
chain job. For a discussion of these cards, and addi- 
tional information on the chain feature, see the publi- 
cation IBM 1410/7010 Operating System; System 
Monitor, Form C28-0319. The information about the 
CHAIN feature that follows pertains only to its use 

with FORTRAN. 

Using the chain feature with Fortran requires only 
a few additional statements in main programs to be 
used in the chain environment; no additional state- 
ments are required in any subprograms. 

Main Link 

A main link must meet the following specifications: 

1. It must contain a Fortran main program. 

2. It must include call chain statements ( see "Call- 
ing Dependent Links" in this section) for any de- 
pendent links desired. Any or all (or none) of the 
dependent links can be called any number of times 
and in any order. 

3. It must declare, in common, all common variables 
used in the main link and/or in any dependent link. 

Dependent Links 

The following specifications apply to dependent links: 

1. They must be either Fortran main programs or 

SUBROUTINE subprograms that have no arguments, sub- 



routine subprograms that have arguments and func- 
tion subprograms cannot be dependent Knks, but they 
can be called from within dependent links. 

2. They should not include call chain statements. 
Execution of these statements in a dependent link pro- 
hibits a return to the main link and, effectively, causes 
the dependent link to be treated as a new main link. 

3. They must declare, in common, those common 
variables used in common with the main link. 

If a dependent link is a Fortran main program, it 
should be terminated with a call return statement 
(see "Exiting from Main Program Links" in this sec- 
tion) rather than a stop or call exit statement. Use 
of the CALL return statement causes a return to the 
main link. 

Note: A call return statement in a main program 
used as a dependent link does not prohibit the user 
from executing that main program outside the chain 
environment. When executed outside the chain envi- 
ronment, the call return statement causes a return 
to the Monitor, the same result that would ordinarily 
be achieved with a stop or call exit statement. 

If a dependent link is a subroutine subprogram, no 
additional requirements are imposed. The return 
statement, required in every subroutine subprogram, 
causes a return to the main link. The call return 
statement must not be used in a subroutine sub- 
program. 

A return to the main link from any dependent link 
is made to the statement in the main link immediately 
following the call chain statement that called the 
dependent link. 

Calling Dependent Links 



General Form 



CALL CHAIN (i) 

i is the number of the dependent link to be loaded and 
executed, i may be a subscripted integer variable, or 
an integer constant, whose value may range from 2 
through 999. The main link ( link number 1 ) cannot 
be called. 



The CALL CHAIN Statement is used in a main link to 
call a dependent link for execution. 



example 



The following statements could be used to cause execu- 
tion of dependent links 2, 3, 4, and 2 (again), in the 
order noted: 
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CALL CHAIN (2) 

CALL CHAIN (3) 

CALL CHAIN (4) 

CALL CHAIN (2) 

Exiting from Main-Program Links 



General Form 



CALL RETURN 



The CALL RETURN Statement is used only in links ( main 
or dependent) that are Fortran main programs. 

In a dependent link, the call return statement 
causes a return to the main link at the statement im- 
mediately following the call chain statement that 
called the dependent link. 

In a main link, the call return statement causes 
either return to the Monitor (if no dependent links 
have been called), or return to the statement in the 
main link immediately following the last call chain 
statement executed ( if any dependent links have been 
called. ) 

example 

The sequence of statements below shows two call 
return statements in a main link, one before any 
dependent link is called, another after two dependent 
links have been called. The first call return state- 
ment causes a return to the Monitor. The second call 
return statement causes a return to the statement 
(continue) following the last call chain statement 
executed. 



CALL RETURN 



CALL CHAIN (I) 
CALL CHAIN (J) 
CONTINUE 



CALL RETURN 



Loading of Links 

The main link of a chain job is loaded and executed 
first. The main link is always resident in core storage, 
unless the user specifies otherwise in the second (base) 
operand of a link card. 

Dependent links are loaded in core storage beyond 
the main link. Dependent links overlay one another 
unless the user specifies otherwise in a link card. 

suRROUTiNE and function subprograms and Built-in 
Functions are loaded with the links that use them. If 



some of these subprograms are used by more than one 
link, the user should use the comn card to force them 
to be loaded with the first link that uses them. If the 
comn card is not used, the subprograms will be 
loaded with each link. 

EXAMPLE 

The diagrams below illustrate where dependent links 
2, 3, 4 of a chain job reside in core storage in rela- 
tion to the main Hnk. Assume no comn cards were 
used. 

Before any dependent link is loaded: 
I main link I I 

After dependent link 2 is loaded: 

I main link I DEP LIN KS | 

After dependent link 3 is loaded: 

I MAIN LINK I DEP LINK 3 I 



After dependent link 4 is loaded: 



MAIN LINK 



DEP LINK 4 



References Among Links 

Main links may use any subroutine subprograms, 
function subprograms, and/or Built-in Functions 
that are included in the main link. Dependent links 
may use any subroutine subprograms, function 
subprograms, and/or Built-in Functions that are in- 
cluded in the dependent link itself, in the main link, 
or in any previously executed dependent links still 
in core storage. Dependent links may not use any 
SUBROUTINE subprograms, function subprograms, 
and/or Built-in Functions included in any dependent 
links not yet loaded and executed. 

Sample Job Using CHAIN Feature 

Figure 9 shows the control cards and Fortran source- 
program decks for a job using the chain feature. (If a 
user desires, he may punch the cards and execute the 
job.) The job consists of the compilation of a main 
link and two dependent links, the processing of the 
links by Linkage Loader, and the execution of the re- 
sultant program. The paragraphs below explain the job. 

control cards 

The first block of cards (mon$$ date through monss 

mode) does the following: 

1. Provides the Monitor with the current date. 

2. Assigns a name to the job. 

3. Assigns output units required for the job. 

4. Declares mode go (because the compiled pro- 
grams are to be executed after compilation). 

The next three blocks of cards consist of mon$$ 
EXEQ FORTRAN coutrol cards followed by source pro- 
grams to be compiled. 
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MON»« DATE 123*5 

MON«» JOB EXAMPLE OF A 3-LINK FORTRAN JCB USING CHAIN FEATURE. 

MONCS ASGN MJB.AI 

MONSS ASGN MG0«B2 GO OUT 

MONSS MODE GO 

MONSS EXEQ FORTRAN.. ECRU 

MAIN LINK (MAIN PROGRAM ECRU) COMPUTES BLOCK A OF OUTPUT* 

COMMON LISTA(^).LISTB(4) .L t STC (4 ) .LI STO (4 > .L ISTX (4 > .PL IST( 4 ) . 
tAMEAN<4t 
* FORMAT( IHt.SX.76HEXAMPLE OF A THREE-LINK JOB CONSISTING OF A MAIN 

IPROGRAM AND TWO SUBROUTINES./////) 
5 FORMAT< ISX.7HBL0CK A/) 

I FORMATS SX.SHLISTA .41 8/SX .BHLI STB .4ia/SX.8HL ISTC .4I8/SX.8H 

XLISTO> .416/////) 

00 20 Ixl.4 
LISTAI l)>:2«*I 
LISTBI I )»3»»I 
LISTCd )=4»»l 
LISTOd )'«S»»I 
20 CONTINUE 
WRITE (3. 4) 
WRITE(3.S) 

WRITE! 3.1) (LISTAI I ).I>I .4) .(LISTBI I) .!> I .4 ) . (L ISTCI I ) . I^ I. 4 ). ( L 1ST 
101 I).l«l.4) 
1=4 
IFILISTDII)-1)60.70.70 

70 CALL CHAIN I 0021 

71 CALL £HAlNI3) 

72 STOP 

IF CALL RETURN EXECUTED. CONTROL RETURNS TO MONITOR. 
60 CALL RETURN 
END 

MONSS EXEO FORTRAN 
SUBROUTINE AZURE 
DEPENDENT LINK 2 (SUBROUTINE AZURE) COMPUTES BLOCK B OF OUTPUT. 
COMMON LISTA(4),.LISTB(4>.LISTC(4) .LI STD (4 ) »L ISTX (4 ) .PL ISTI 4 ) . 
lAMEANIA) 
a FORMATI tSX.THBLOCK A/) 

I FORMATISX.BHLISTA .41 e/SX .BHLI STB .4I8/SX.aHLISTC .4I8/5X. 
laHLlSTO .4ie//tSX.7HBL0CK B//5X.aHLI STX .4 18/SX .8H AMEAN . 
24Fe.2/////) 
DO 5 1=1,4 

LISTXII )''LISTAin4^LlST8lt ) «^LI STC ( I )4^LIST0( I ) 
PLISTI I >°LISTX(t > 
AMEANI I ) xPL I STI H ) /4. 
S CONTINUE 
WRITE(3.8) 

WRITE(3.t)(LISTA(I >,I = I .4) .(LISTBd) .I'l .4).(LISTCI I ) . I- J . 4 ) . ( L 1ST 
10( I ).l't.4) .(LISTX(t) .I'l .4).(A»(EAN(I) ,1 = 1. 4) 
RETURN 
END 

MONSS EXEQ FORTRAN 

SUBROUTINE OCHRE 
DEPENDENT LINK 3 (SUBROUTINE OCHRE) COMPUTES BLOCK C OF OUTPUT. 

COMMON LISTAI 4 I .LI STB 14) .LISTCI4) .LI STD (4) >L IS TX (4 ) .PL 1ST I 4 ) . 
1AMEANI4) 
II FORMAT! 15X.7HBL0CK A .2SX.7HSL0CK C/) 
I F0RMAT(SX.8HLIS?A .SI 8 .Fa.2/SX .8HLI STB .5 I 8 .F8 .2/SX. 
laHLISTC .5I8.Fa.2/SX.aHLISTD .5I8.Fa.2/ 
2/15X.7HBL0CK B//5X .8HLI STX .4 I8/5X .8HAMEAN .4Fa.2/) 

OO 50 1=1.4 

LISTATsLISTATtLISTAd ) 

LISTBTsLISTBT^LISTBd ) 

HSTCT=LISTCT*LISTC(I ) 

LISTOT=LISTOT*LJSTD(I ) 
SO CONTINUE 

ALIST=FL0AT(LISTAT/4) 

BLISTxFLOATILISTBT/4) 

CLIST=FL0AT(LISlfCT/4) 

OLIST=FL0AT(LIST0T/4) 

WRITE(3. II ) 

WRtTEI3.1)( ILISTAII ).I>1 .4) .LI STAT . ALI ST . ( L t ST B( I ) . I = 1 . 4 t .L ISTBT. B 
ILIST.ILISTCIt ).I>1 .4) .LISTCT.CLIST.(LtSTD(l ) . t ^ 1 ,4 ) .L t STOT . DL 1ST. 
IILISTXI t ).l=1.4t .(AMEAN (I ) .1 = 1 .4)) 

RETURN 

END 



MONSS 


EXEQ LtNKLOAD.... EXAMPLES 




LINK ECRU 




COMN IBINTRP. FLOAT 




LINK AZURE 




ENTRVAZURE 




LINK OCHRE 




ENTRVOCHRE 




END 


MONSS 


EXEQ EXAMPLE2.MJ8 


MONSS 


END 



Figure 9. Sample Job Using chain Feature 



The first program compiled is Fortran main pro- 
gram ECRU; this program is the main link of the 
CHAIN job. 

The second program compiled is Fortran sub- 
routine subprogram azure; this subprogram is de- 
pendent link 2 of the chain job. 

The third program compiled is Fortran subroutine 
subprogram ochre; this subprogram is dependent link 
3 of the chain job. 



The last block of cards (mon$$ exeq linkload 
through MON$$ end) does the following: 

1. Causes Linkage Loader to process the three com- 
piled programs as a chain job named examples. 

2. Defines ecru as the main link. (The first link 
card contains the name of the main link.) 

3. Causes the floating-point interpretive sub- 
routine IBINTRP and the Built-in Function float to 
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be loaded before the main link. (The comn card 
forces this order of loading.) 

4. Defines azure and ochre as dependent links, 
numbered 2 and 3, respectively. (Links named in 
LINK cards following the first link card are assigned 
increasingly larger link numbers.) 

5. Assigns entry points to dependent links 2 and 3. 
(An ENTRY card is required if a dependent link is 
other than a Fortran main program.) 

6. Indicates the end of chain control cards. 

7. Causes execution of chain job examples. 

8. Defines the end of the job. 

execution of chain job 

When the chain job examples is executed, the fol- 
lowing steps occur: 

1. The main link ecru is loaded (with ibintrp and 
FLOAT preceding it in core storage). 

2. ecru computes and writes block A of the three 
blocks of output produced by examples. 

3. ecru calls dependent link 2 (azure). This is 
accomplished by the call chain statement num- 
bered 70. 



4. AZURE is loaded into core storage beyond ecru. 

5. AZURE computes block B and writes blocks A 
and B of the output. 

6. AZURE returns control to the main link ecru at 
the statement numbered 71, the statement immedi- 
ately following the call chain statement that called 

AZURE. 

7. ECRU calls dependent link 3 (ochre). This is 
accomplished by the call chain statement num- 
bered 71. 

8. ochre is loaded into core storage beyond the 
main link; ochre overlays dependent link 2 (azure). 

9. OCHRE computes block C and writes blocks A, 
B, and C of the output. 

10. OCHRE returns control to the main link ecru at 
the statement numbered 72, the statement immediately 
following the call chain statement that called ochre. 

11. ECRU returns control to the Monitor. This is 
accomplished by the stop statement. 

Note: If the call return statement in the main 
link is executed, control returns to Monitor because no 
dependent links have been called. 
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PART 3- DIAGNOSTIC AND ERROR MESSAGES 



Diagnostic Messages 



Diagnostic message? numbers appearing on the source 
program listing, together with the meaning of the 
message number, are given below. 

Compilation of the source program is not attempted 
(and object program execution is cancelled in a 
compile-and-go ope;ration) for all diagnostic messages 
listed except numbers 003, 005, 020, 022, 038, and 096. 
These warning messages are indicated by an asterisk 
in the accompanying list. The asterisk is not printed 
with the message number on the source program 
listing. 



MESSAGE 
NUMBER 

001 
002 
003* 

004 
005* 



006 
007 

008 
009 

010 



Oil 

012 

013 

014 

015 

016 
017 

018 

019 
020* 

021 

022* 

023 



MESSAGE 

Statement not recognized 

Improper statement as a relational IF trailer 

Blank statement text beginning with column 7 

More than ten cards per statement 

One or more of following illegal character(s) 

found in statement: record mark, group mark, 

exclamation mark. The character has been deleted 

Premature end of statement 

Uneven parentheses count or missing paren- 
thesis 

Improper or invalid character 

SUBROUTINE or FUNCTION is not first 

statement 

REAL, INTEGER, or EXTERNAL follow a 

DIMENSION, COMMON, EQUIVALENCE, 

or FORMAT 

A specification statement appears after the first 
executable statement 

DIMENSION, COMMON, or EQUIVALENCE 
are out of prescribed order 
An arithmetic statement function appears after 
an executable statement 

A DIMENSION, COMMON, or EQUIVA- 
LENCE follows a FORMAT statement 
The object of GO TO or Arithmetic IF is a non- 
executable statement 
Improper statement for the end of a DO range 

Object of a GO TO or Arithmetic IF statement 
missing 

FORMAT statement is not prior to an I/O state- 
ment reference 
End of DO range missing 

Coding which will not be executed appears after 
a GO TO, RETURN, STOP, or Arithmetic IF 
Overlapping DO statements 
END card is missing but assumed by processor 
Statement number is zero or has a non-numeric 
character in it 



MESSAGE 
NUMBER 

024 

025 
026 

027 
028 
029 

030 
031 
032 

033 

034 

035 
036 

037 
038* 

039 

040 

041 
042 

043 
044 
045 

046 

047 

048 
049 

050 
051 

052 

053 



MESSAGE 

Statement number appears on more than one 
statement 

Character must be numeric 
A number in E notation cannot have more than 
two exponent digits 

A number must follow the sign in E notation 
An improper or invalid character follows number 
A decimal point with neither leading nor trail- 
ing digits 

First character of a name must be alphabetic 
Name greater than six characters 
Name must be an integer name that is not 
DIMENSIONed 

A name has been declared in COMMON more 
than once 

A name has been DIMENSIONed more than 
once 

A name has had mode declared more than once 
A name has been declared in EXTERNAL twice; 
or in EXTERNAL and DIMENSION or COM- 
MON or EQUIVALENCE 
RETURN statement found in a main program 
RETURN statement was not included in this 
subprogram 

A FUNCTION statement must have at least one 
argument 

Improper or invalid character in FUNCTION or 

SUBROUTINE statement 

Declarative statement subscripts cannot be zero 

Improper character after right parenthesis in 

DIMENSION 

More than a three-dimensional array 
Improper character after name in COMMON 
Bad punctuation, or subscripting a variable that 
is not DIMENSIONed, in an EQUIVALENCE 
statement 

More than one name required in parentheses of 
EQUIVALENCE 

DIMENSIONed name in EQUIVALENCE must 
have one and only one integer subscript 
Nothing should follow number in PAUSE 
Nothing should follow the word STOP, CON- 
TINUE, RETURN, or END 
Neither computed nor simple GO TO 
Computed GO TO needs a comma after the right 
parenthesis 

A comma or right parenthesis should follow the 
number 

Nothing should follow the name in computed 
GO TO, the statement number in the Uncon- 
ditional GO TO, or the third statement number 
in an Arithmetic IF 
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MESSAGE 

NUMBER MESSAGE 

054 A GO TO or Arithmetic IF is going to itself 

055 End of the DO range occurred before or at the 
DO Statement 

056 Comma after statement reference in DO 

057 An equal sign must follow index in DO 

058 DO nest greater than 25 

059 Nothing should follow the parameters of a DO 

060 End of DO statement found after equal sign or 
comma of index parameters 

061 A DO should have two or three parameters 

062 An improper character follows unit number or 
name in I/O statement 

063 A name that is not DIMENSIONed cannot have 
a subscript 

064 Improper character follows name, subscript, or 
right parenthesis 

065 A right parenthesis must follow index param- 
eters in an I/O list 

066 No unit designation has been given, or its first 
character is improper 

067 Unit number should be 1-9, one digit 

068 Nothing should follow unit designation in BACK- 
SPACE, REWIND, or ENDFILE 

069 The subroutine name is DIMENSIONed 

070 A left parenthesis does not follow SUB- 
ROUTINE name 

071 Right parenthesis of CALL is not last character 
in the statement 

072 Parentheses count within argument of CALL or 
expression of Relational IF is uneven 

073 Relational IF statement has no trailer 

074 Mixed mode between expressions of a Rela- 
tional IF 

075 Left-hand side of arithmetic statement does not 
have an equal sign after first variable 

076 Illegal consecutive operators 

077 Mixed mode 

078 Arithmetic statement ends with an operator 

079 Right parenthesis follows an operator 

080 Integer* *real not permitted 

081 A**B**C not allowed 

082 Comma improper 

083 Character is neither arithmetic operator nor 
punctuation 

084 Improper character follows exponent operator 

085 Number of subscripts not equal to the number 
declared 

086 -H or — in subscript not followed by a number 

087 A real number is in the subscript 

088 Improper or invalid character within a subscript; 
or nothing within parentheses; or end of state- 
ment within subscript 

089 A nonsubscripted array name appears in an arith- 
metic expression or IF 

090 Invalid use of nonsubscripted array name in 
FUNCTION or CALL 

091 An argument in an arithmetic statement function 
defining statement is DIMENSIONed 



MESSAGE 
NUMBER 

092 



093 

094 
095 
096* 
097 

098 

099 

100 

101 
102 



103 
104 

105 
106 
107 

108 
109 

110 

111 
112 
113 
114 

115 

116 



117 
118 

119 
120 

121 
122 



MESSAGE 

An argument in an arithmetic statement function 
defining statement contains an improper or in- 
valid character 

Subscripted array in arithmetic statement func- 
tion defining statement 
No coefficient for P, X, or H conversion 
Octal conversion is not handled 
Missing statement number on FORMAT statement 
More than 133-character line produced by 
FORMAT 

Nested parentheses in FORMAT are not per- 
mitted 

Missing period in E or F within FORMAT 
statement 

Number after period in E or F is missing or is 
greater than two digits within the FORMAT 
statement 

A, I, E, or F must be followed by a number in 
the FORMAT statement 

Improper character follows a number in a for- 
mat specification or the FORMAT statement 
ends prematurely 
Two consecutive commas 

More than three digits appear in a number in 
FORMAT 

A number must follow the minus sign 
Incorrect count for H conversion 
Improper or invalid character follows right 
parenthesis in FORMAT 
Two consecutive P's preceding a specification 
Number table/name table entry overflow. Too 
many names and statement number uses 
Too many arguments appear in arithmetic state- 
ment function definition statement 
Too many names declared in COMMON 
Too many DIMENSIONed names 
A comma must follow nX in FORMAT 
The number appearing in the statement is too 
long 

Too many (more than 9999) characters appear 
in FORMAT statements 

Program is too large to compile ( dictionary over- 
flow has occurred) or run (more than 100,000 
positions of core storage required by this pro- 
gram). If a single array exceeds 100,000 posi- 
tions, the overflow is not detected 
The EQUIVALENCE specification is inconsistent 
Two variables in COMMON have been equiva- 
lenced 

EQUIVALENCE has extended common upward 
A zero coefficient appears in a FORMAT speci- 
fication other than P, or width in E, F, I, or A 
specifications is zero 

Three statement numbers are required in an 
Arithmetic IF statement 

A comma should separate the statement num- 
bers in the Arithmetic IF statement 



*Warning message; compilation continues and object program 
execution is not canceled. 



Error Messages 



Error-message numbers are printed on the Standard 
Print Unit during program execution in this format: 
ERROR NOi. XXX AT LOCATION xxxxx. The mcssage corre- 
sponding to each error number appears in the accom- 
panying Hst. 



Information concerning unusual end of program ap- 
pears in the publication, IBM 1410/7010 Operating 
System; System Monitor, Form C28-0319. 



MESSAGE 
NUMBER 

805 

806 
807 
808 
809 

810 

811 
812 

815 
820 
821 

850 

851 

852 
853 
854 
856 



857 



860 

861 



862 



MESSAGE 

INT built-in function. Integer larger than integer field 

IFIX built-in function. Integer larger than integer field 

AMOD built-in function. Modulus is zero (real) 

MOD built-in function. Modulus is zero (integer) 

Logarithm of negative number or zero ( ALOG built-in function ) or a nega- 
tive number with non-integer exponent 

SQRT built-in function. Square root of negative number 

Negative exponent (integer) for expression of form I** J 

SLITE or SLITET built-in function. Sense light must be 0, 1, 2, 3, or 4 
for SLITE and 1, 2, 3, or 4 for SLITET 

IDIM built-in function. Arg 1-Arg 2 creates overflow 

EXP built-in function. Argument must be less than 225. 

COS or SIN built-in function. Argument must be less than 10000. radians 
in absolute value 

An invalid I/O command has been given; e.g., a REWIND of the Standard 
Input Unit 

An I/O command addressing the Standard Input, Punch, or Print Unit has 
been given without a FORMAT statement 

The FORMAT statement contains an invalid symbol 

The data for E or F input contains an invalid symbol 

FORMAT statement is invalid 

Field width specified for output data is too small for I conversion 



Field width specified for output data is too small for E or F conversion 



A permanent read/write error has been detected 

An end-of-file condition has occurred. ( Fortran does not handle multi- 
reel files. The user can write his Fortran program to allow for multireel 
files by using a code or signal at the end of each reel, testing for it in his 
program, and switching to another reel. For this procedure, alternate units 
must be assigned. ) 

A BACKSPACE statement has addressed a tape which has not been ref- 
erenced by a READ or WRITE 



ACTION TAKEN 

Next sequential instruction 
Next sequential instruction 
Result is always zero 
Result is always zero 
Unusual end of program 

Square root of absolute value 
is calculated 

Result is always integer 1 

Unusual end of program 

Next sequential instruction 
Unusual end of program 
Unusual end of program 

Unusual end of program 

Unusual end of program 

Unusual end of program 

Unusual end of program 

Unusual end of program 

High-order digits are trun- 
cated and an * will be in- 
serted in the most significant 
digit position 

An * is inserted in high-order 
numeric position, any other 
digits preceding decimal 
point are replaced by blanks, 
decimal point is inserted, and 
digits following decimal 
point are replaced by zeros. 
For E conversion, the correct 
digits are inserted in the ex- 
ponent field 

Normal end of program 

Normal end of program 



BACKSPACE statement will 
be ignored 
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Appendixes 



Appendix A: Source Program Statements 
and Sequencing 

The following set of rules describes the order in which 
source program statements of a Fortran program are 
executed. 

Control originates at the first executable statement. 
The Specification statements, and the format, func- 
tion, and SUBROUTINE statements, are nonexecutable. 
For determination of sequencing, these statements 
can be ignored. 

If control is with statement S, then control will pass 
to the statement indicated by the normal sequencing 
of statement S (see "Table of Source Program State- 
ment Sequencing"). However, if S is the last state- 
ment in the range of one or more do's that are not 
satisfied, the normal sequencing of S is ignored, and 
DO sequencing occurs. 

Every executable statement in a source program 
(except the first) must have some programmed path 
of control leading to it. 



Table of Source Program 


Statement Sequencing 


STATEMENT 


NORMAL SEQUENCING 


a = b 


Next executable statement 


BACKSPACE i 


Next executable statement 


CALL 
COMMON 


First executable statement of 
called subprogram 
Nonexecutable 


CONTINUE 


Next executable statement 


DIMENSION 


Nonexecutable 


DO 


DO sequencing, then the next 
executable statement 


END 


Terminates program, non- 
executable 


END FILE 


Next executable statement 


EQUIVALENCE 


Nonexecutable 


EXTERNAL 


Nonexecutable 


FORMAT 


Nonexecutable 


FUNCTION 


Nonexecutable 


GOTOn 


Statement n 


GOTO (m.nz nm),i 


Statement ni 


IF(t)s 


Statement s or next executable 
statement, if relation t is true 
or false, respectively 


IF ( a ) ni, n2, na 
INTEGER 


Statement ni, na, or na, if ex- 
pression a is less than, equal 
to, or greater than zero, re- 
spectively 
Nonexecutable 


PAUSE 


Next executable statement 


READ 


Next executable statement 


REAL 


Nonexecutable 



STATEMENT 

RETURN 



REWIND 
STOP 

SUBROUTINE 
WRITE 



NORMAL SEQUENCING 

The first statement, or part of 
a statement, following the ref- 
erence to this program 
Next executable statement 
Terminates the program 
Nonexecutable 
Next executable statement 



Appendix B: Preparing, Checking, and 
Punching a Source Program 

The statements of a Fortran source program are 
usually written on a standard FORTRAN Coding 
Form, Form X28-7327 (Figure 10). A sample Fortran 
source program is shown in Figure 11. This program 
selects the largest value from an array of numbers 
(identified by the variable name A). 

Using the FORTRAN Coding Form 

Columns 1—5 of the first line of a statement may con- 
tain a statement number that identifies the statement. 
This number must be less than 100,000. Blanks and 
leading zeros are ignored in these columns; for exam- 
ple, bbbSO is the same as bSbbO and SbbbO. A state- 
ment must not be numbered zero. All statement num- 
bers must be unique. These statement numbers do 
not have to be in any sequence or order; for example, 
the first statement of a program may be given state- 
ment number 100 and the 50th statement in a source 
program may be given statement number 1. These 
statement numbers are used, for example, in do loops 
to indicate the range of the do loop, in the go to state- 
ment, and to refer to format statements. 

A statement may be continued on as many as nine 
lines. Any line with a non-blank, non-zero column 6, 
is considered to be a continuation of the preceding 
line. The actual character used in column 6 does not 
have any significance. The first continuation card 
could have a 9 in column 6, the second card an A, 
the third a 2, and so on. 

Columns 7-72 contain the actual Fortran statements. 
Blanks are ignored except in an H-field of a format 
statement. 

Statements with a C in column 1 are not processed 
by the Fortran processor, but the statements appear 
in the source program listing as comments. If there 
is a C in column 1, columns 2-72 may be used for 
comments. Comment cards may not appear between 
continuation cards of a statement. Comment cards 
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may not immediately precede the function or sub- 
routine statements. 

Columns 73-80 are not processed and may be used 
for identification. 

The order of execution of the source statements is 
governed by the sequencing described in Appendix A. 

Source Prognam Checklist 

An early successful compilation of a Fortran source 
program is more likely if the coding is checked against 
the following list of commonly made errors. 



ITEM TO CHECK 

Program flow 



ITEM TO CHECK 

A conversion 
Arithmetic expressions 



DO parameters 

FORMAT statements 

FORTRAN language 

H conversion 
Order of source deck 



CODING ERROR 

Field width, w, exceeds the word 
size, k or f+2. 

Real and integer numbers, both 
constants and variables, mixed in 
invalid combinations. Often, a 
real constant is written without a 
decimal point. 

Subscripted integer variable or 
expression used as parameter. 
FORMAT specifications and I/O 
list not compatible. 
Misspelled FORTRAN-language 
word such as EQUIVALENCE. 
Incorrect count for n of nH. 
Specification statements or FOR- 
MAT statements are out of se- 
quence. 



Statement numbers 



Subprograms 



Subprogram names 

SURROUTINE 

statement arguments 
Subscripted variables 



CODING ERROR 

Statement transfers into the range 
of a DO. 

Unreferenced statement after a 
GO TO, Arithmetic IF, RE- 
TURN, or STOP. 
END statement encountered in 
program flow. 

Use of same statement number 
more than once. 

Absence of a referenced state- 
ment number. 

FUNCTION or SUBROUTINE 
statement missing at beginning 
of a subprogram; RETURN state- 
ment missing; END statement 
missing. 

Name is same as a variable name 
used in this program. 
Dummy arguments that are sub- 
scripted or equivalenced variables. 
Each subscripted variable, in- 
cluding those in lists, does not 
appear in a DIMENSION state- 
ment. 



Punching the Source Program 

FORTRAN source program statements, prepared as de- 
scribed above, are punched into a standard Fortran 
source program card, Form 888157 ( see Figure 12 ) . 



^Difl FORTRAN CODING FORM 
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Page of 


Program 
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Figure 10. Fortran Coding Form 
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Figure 11. Sample Fortran Source Program 
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FORTRAN 



JTATEMENT 
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Figure 12. Fortran Source Program Card 



Appendix C: Table of Source Program 
Characters 



ACTER 


card 


char- 


PUNCHES 


Blank 


Blank 








1 


1 


2 


2 


3 


3 


4 


4 


5 


5 



CHAR- 


CARD 


ACTER 


PUNCHES 


A 


12-1 


B 


12-2 


C 


12-3 


D 


12-4 


E 


12-5 


F 


12-6 


G 


12-7 


H 


12-8 


I 


12-9 


+ 


12 


J 


11-1 



CHAR- 
ACTER 

K 

L 

M 
N 
O 
P 

Q 

R 

/ 
S 
T 
U 



CARD 
PUNCHES 

11-2 
11-3 
11-4 

11-5 

11-6 

11-7 

11-8 

11-9 

11 

0-1 

0-2 

0-3 

0-4 



CHAR- 
ACTER 

V 

w 

X 
Y 
Z 



CARD 
PUNCHES 

0-5 
0-6 

0-7 

0-8 

0-9 

3-8 

4-8 

12-3-8 

12-4-8 

11-3-8 

11-4-8 

0-3-8 

0-4-8 



Note: The character $ can be used in Fortran only in a 
FORMAT statement. 
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( Where more than one page reference is given, major 

reference appears first. ) 

A Conversion 16 

ABS 23 

Active Subscript Expressions, Calculation of 35 

Addition 9 

Address Constants 39 

AINT 23 

ALOG 23 

Alphameric Fields 16 

AMAXO 23 

AMAXl 23 

AMINO 23 

aminI 23 

AMOD 23 

/ams/ , 38 

Appendixes 50 

Arguments 9 

Arguments, Subprogram 39 

Real 40 

Arithmetic Expressions 9 

Arithmetic if Statement 12 

Arithmetic Operators 9 

Arithmetic Statements 25, 8 

Arrays 8, 14, 27 

ATAN 23 

Autocoder Subprogram Examples 41 

Autocoder Subprograms for System Library 39 

BACKSPACE Statement 20 

Blank Fields 17 

Blank Lines 18 

Built-in Function 22 

Type 21 

Calculation, Numeric 11 

CALL Statement 25 

Calling Program, Returning Value to 41 

Calling Sequences 39 

Carriage Control 18 

CHAIN Feature 43 

Character Set, Fortran 52 

Checking Source Programs 50 

Checklist, Source Program 51 

Coding Form 51 

Coefficient of Subscript Expression 35 

Comments 50 

Common Data Area, Autocoder Subprograms 40 

COMMON Statement 27 

Special Considerations for Use with equivalence 28 

COMMON (With Dimensions) Statement 27 

Special Considerations for Use with equivalence 28 

Computed go to Statement 12 

Constants 7 

continue Statement 13 

Control, Program 50 

Control Statements 12, 5 

Conversion 15 

Core Storage 

Allocation for common 27 

Allocation for equivalence 28 

Arrangement of Arrays 8, 35 

Changing Stored Value 28 

Size 5 

cos 23 

D Factors 35, 36 



Data Input to an Object Program 19 

Definitions 

FORTRAN in Relation to Operating System 5 

Statement Function 22, 21 

Subprograms 22, 21 

Deleting Subscript Expressions 36 

Diagnostic and Error Messages 47 

Diagnostic Listing of Source Program 47, 33 

Diagnostic Messages 47, 33 

Dictionary Space Requirements 38 

DIM 23 

DIMENSION Statement 9, 14, 27 

Divide Check (dvchk) 25 

Division 9 

DO Statement 12 

Dummy Arguments 22, 24, 25, 27 

Dummy Statement, continue 13 

DVCHK 25 

E Conversion 15 

END Statement 13, 24 

END file Statement 20 

Entry Point, Program 33 

Equal Sign 11 

Equal To ( .eq. ) 10 

EQUIVALENCE Statement 28 

Special Considerations for Use with common 28 

Error Messages 49 

EXEQ Card 30 

Exit from do 12 

EXIT Subroutine 26 

EXP 23 

Explicit Type Specification 29, 8 

Exponential Expressions 10 

Exponential and Expanded Forms, Use of Overflow 

Indications 10 

Sign Restrictions 10 

Exponentiation 9 

Expressions 9, 7, 10 

Mixed 9 

External Representation, Numerics 15 

EXTERNAL Statement 29, 25 

F Conversion 15 

f , Definition and Value of . . ' 7 

f. Transmittal of Value of Subprogram 40 

Field 

Alphameric 16 

Blank 17 

Input, Alphameric 16 

Input, Numeric 16 

Numeric 15 

Output, Alphameric 16, 17 

Output, Numeric 15 

Repetition of Field Format 17 

Repetition of Groups of Field 17 

Field Width 15, 16 

/fix/ 40 

Fixed-Point Constants 7 

/flo/ 40 

FLOAT 23 

Floating-Point Arithmetic Feature 30, 40 

Floating-Point Constants 7 

Floating-Point Interpretive Subroutine 40, 42 

FLT Operand 30 

format Specifications 15 

FORMAT Statement 15, 14 

Relation to Specification List 18 
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FORTRAN as a Component of Operating System 30 

FORTRAN Card 52 

FORTRAN Language 7, 5 

FORTRAN Operands 30 

FORTRAN Processor 5 

Forward References, Memory Map 33 

Freeing Index Cells 36 

FUNCTION Subprogram 24, 41 

Type 21 

Functions 21 

General i/o Statements 19, 14 

GO TO 12 

Greater Than ( .gt. ) 10 

Greater Than Or Equal To ( .ge. ) 10 

H Conversion 16 

Hierarchy of Operations 9, 10 

I Conversion 15 

lABS 23 

IBINTRP 40, 42 

IDIM 23 

IF Statement, Arithmetic 12 

IF Statement, Relational 12 

iFix 23 

Implicit Type Specification 8 

Implied do's 14 

Index Cells 35 

Iridex of do Statement 12 

Index Register Requirements, Autocoder Subprograms. . . 39 

Input and Output Statements 14, 5, 19, 20 

Input Fields, Numeric 16 

Input — READ Statement 19 

INT 23 

Integer Constants 7 

INTEGER FUNCTION Statement 24 

INTEGER Statement 29 

Internal Representation, Numeric 15, 7, 8 

Introduction, General 5 

ISIGN 23 

k, Definition and Value of 7 

k. Transmittal of Value to Subprogram 40 

Label Characteristics 19 

Less Than ( .lt. ) 10 

Less Than Or Equal To ( .le. ) 10 

Library Subroutines 

Inclusion of 5 

Use in Autocoder Subprograms 40 

List . • 14 

List and format Statement Relationship 18 

Listing, Source Program 33 

Looping — DO Statement 12 

Machine Indicator Tests 25 

Machine Requirements, Minimum 5 

Magnitude, Constants 7 

Main Program 5 

Manipulative i/o Statements 20, 14 

MAXO 23 

MAXl 23 

Maximum Record Length 19 

Memory Map of Object Program 33 

minO 23 

minI 23 

Mixed Expressions 9 

MOD 23 

Mode 

Arithmetic Expressions 9 

Conversion of 11 

Relational Expressions 10 

Monitor Control Card to Execute Fortran 30, 7 

Multiple-Record format Statements 17 

Multiplication 9 



Names 

Main Program 30 

Statement Functions 21 

Subprogram Names as Arguments 25 

Subprograms 21 

Variable 8 

Nest of do's 12 

Not Equal To ( .ne. ) 10 

Numeric Fields 15 

Object Program, Data Input to 19 

Object Program, Memory Map 33 

Object Program, Running 32 

Offset of Subscript Expression 35 

Operators 

Arithmetic 9 

Arithmetic Valid Combinations 9 

Relational 10 

Relational Valid Combinations 10 

Order of Computation 9 

Order of Specification Statements 29 

Output Fields, Numeric 15 

Output — vv^RiTE Statement 20 

overfl 25 

Overflow 

Exponential 10 

Machine Indicator Test (overfl) 25 

P Conversion 17 

Parentheses 9 

PAUSE Statement 13 

PCH Operand 30 

Points of Definition 36 

Preparing, Checking, and Punching 

Source Program 50 

Prerequisite Publications 5 

Primary Subprograms 5 

Processing Source Programs 30 

Processor Options 30 

Program 5 

Entry Point 33 

Size, Memory Map 33 

Punching Source Programs 51 

Range of do Statement 12 

READ Statement 19 

Reading or Writing Entire Arrays 14 

Real Constants 7 

REAL FUNCTION Statement 24 

real Statement 29 

Record Length, Maximum 19 

Recursive Operation 41 

Relational Expressions 10, 12 

Relational if Statement 12 

Relational Operators 10 

Repetition of Field Format 17 

Repetition of Groups of Fields 17 

Reserving Index Cells 35 

Restrictions 

DO Statement 13 

Exponential Expressions, Signs of 9 

RETURN Statement 13, 24, 25 

Returning Values to Calling Program 41 

REWIND Statement 20 

Sample Program 52 

Scale Factors 17 

Secondary Subprogram 5 

Sense Lights 25 

Sequencing, Source Program Statements 50 

SIGN 23 

SIN 23 

Size, Program 34 

Skipping Input Records 18 
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Skipping Lines 18 

Slash (/) 18 

SLITE 25 

SLITET 25 

Source Program 50 

Source Program Characters 52 

Source Program Listing 33 

Space Required by Dictionary 38 

Specification Lists 14 

Relation to format Statement 18 

Specification Statements 27, 5 

Order ol" 29 

SQRT 23 

Standard Input Unit 19 

Standard Print Unit 18, 19 

Standard Punch Unit 19 

Statement Functions 21 

Defining 22 

Names 21 

Type 21 

Statement Number 50, 5 

Appearance on Memory Map 33 

STOP Statement 13 

Subprogram 21, 5 

Advantages 21 

Basic Requirements for Autocoder 40 

CALL Statement 25 

Built-in Functions 22 

Definitions 21, 22 

Exit from 13 

FUNCTION Subprograms 24 

Machine Indicator Tests 25 

Names 21 

Names as Arguments 22, 21, 25 

SUBROUTINE Subprograms 25 

Usage 21 

Valid Components 21 

Writing Autocoder 37 

Subprogram Statements 21, 5 

SUBROUTINE Subprogram 25 

CALL Statement 25 

Type 21 

Subscript 8, 35, 7 

Coefficient 35 

Expression 35 

Literal 35 



Offset 35 

Variable 35 

Subscript Expressions 35 

Active 35 

D Factors 36 

Deleting 36 

Equivalence of 36 

Value of 35 

Subtraction 9 

Symbohc Input/Output Unit Designation 19 

Symbolic Unit 19 

System Library 5 

Autocoder Subprograms for 39 

Built-in Functions 22 

Tape Labels 19 

Tape Mark 20 

TITLE Card 32 

Transfer of Control into or from do Range 12 

Type 7, 8, 21, 29 

Type Statements 29 

Unconditional go to Statement 12 

Unformatted i/o Operations 

BACKSPACE Statement 20 

READ Statement 19, 20 

write Statement 20 

Unusual End of Program 49 

Use and Contents of Publication 6 

Use of Coding Form 50 

Use of Exponential and Expanded Forms 10 

Use of Relational Expressions 10 

Valid Components, Subprograms 21 

Value of Subscript Expression 35 

Changes in Value 36 

Variables 7, 8 

Variables, Subscripting 35 

Vertical Forms Spacing 18 

Waiting Loop 13 

Warning Messages, Diagnostic 47 

Word Size 7 

Work Tapes 19 

WRITE Statement 20 

X Conversion 17 
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No card should precede the subroutine statement. 

The SUBROUTINE subprogram may use one or more 
of its arguments to return vahies to the caDing program. 
Any arguments so used must appear on the left side of 
an arithmetic statement or in an input list within the 
subprogram. The name of the subroutine must not be 
used as a variable in its subroutine subprogram. 

The arguments may be considered dummy variable 
names that are replaced at the time of execution by 
the actual arguments supplied in the call statement. 
The actual arguments must correspond in number, 
order, and type to the dummy arguments. 

When a dummy argurnent is an array name, a di- 
mension statement must appear in the subroutine 
subprogram. The corresponding actual argument in the 
CALL statement must also be a dimensioned array name. 

None of the dummy arguments may appear in an 
EQUIVALENCE Or COMMON Statement in the subroutine 
subprogram. 

Like the function subprogram, the subroutine sub- 
program must return control to the calling program by 
a RETURN statement. 

An END statement is also required. 

Subprogmm Names as Arguments — The EXTERNAL 
Statement 

Subprogram names may be used as the actual argu- 
ments in the calling program. In order to distinguish 
these subprogram names from ordinary variables when 
they appear in an argument list, their names must 
appear in an external statement (see "The Specifica- 
tion Statements"). 

The CALL Statement 

The call statement is used only to call a subroutine 
subprogram. 



General Form 



CALL name ( a,, an, . . . , an) 

name is the symbolic name of a subrqutink subprogram. 
U), a-j, . . . , a,! are the actual arguments that are being 
supplied to the subroutine subprogram. 



examples 

CALL MATMPY (X, 5, 40, Y, 7, 2) 

CALL QDRTIC (X, Y, Z, ROOTl, ROOT2) 

The call statement transfers control to the sub- 
routine subprogram and replaces the dummy vari- 
ables with the value of the actual arguments that ap- 
pear in the call statement. The arguments in a call 
statement may be any of the following: any type of 
constant, any type of subscripted or nonsubscripted 
variable, an arithmetic expression, the name of a sub- 
program. 

The arguments in a call statement must agree in 
number, order, type and array size with the corre- 
sponding arguments in the subroutine subprogram. 



Machine Indicator Tests 

The 1410/7010 Fortran language provides machine 
indicator tests even though machine components refer- 
enced by the tests do not physically exist. The machine 
indicators, described below, are simulated by sub- 
routine subprograms located in the System Library. 
To use any of the following machine indicator tests, 
the user supplies the proper arguments and writes a 
CALL statement. In the following listing, i is an integer 
expression, j is an integer variable. 



GENICRAL FORM 



FUNCTION 



SLITE (i) If i = 0, all sense lights are turned off. 

If i=L 2, 3, or 4, the corresponding 
sense light is turned on. 

SLITET (i, j) Sense Hght i ( 1, 2, 3, or 4) is tested and 

j is set to "1" or "2" if i is on or oft', re- 
spectively. After the test, sense light i is 
turned off. 

OVERFL ( j ) This indicator is on if an arithmetic op- 

eration with real variables and constants 
results in an overflovi' condition; that is, 
if an arithmetic operation ( of type real ) 
produced a result w^hose value is greater 
than ( 1-10-0 Xl0»9. If the indicator 
is on, j is set to "1"; if off, j is set to 
"2." The indicator is set to off after the 
test is made. 

DVCHK (j) This indicator is set on if an arithmetic 

operation with real constants and vari- 
ables results in the attempt to divide by 
zero; ) is set to "1" or "2" if the indicator 
is on or off, respectively. The indicator 
is set to off after the test is made. 



EXAMPLES 

CALL SLITE (3) 
CALL SLITET (K*J, L) 
CALL OVERFL (J) 
CALL DVCHK (I) 

As an example of how the sense lights can be used 
in a program, assume that the statements call slite ( i ) 
and CALL SLITET (i, ken) have been written. Further 
assume that it is desired to continue with the program 
if sense light i is on and to write results if sense 
light I is off. This can be accomplished using the 
Relational if statement or a Computed go to statement, 
as follows : 



IF (KEN. EQ. 2) WRITE (3,26) (ANS(K),K = 1, 10 ; 



or 



GO TO ( 6, 17 ) KEN 
17 WRITE (3, 26) (ANS(K), K=l, 10) 
6 



Subprograms:. Function and Subroutine Statements 25 



EXIT Subroutine 

A CALL to the EXIT subprogram, located in the System 
Library, terminates the execution of the program and 
returns control to the Monitor. The exit subprogram 
and the stop statement produce identical results. 



General Form 



CALL EXIT 
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